ae 


—————————————————————eE 


DDDDDDDDDDDD 
DDDDDDDDDDDD 


DODDDDDDDDDD 
DDD DOD 


DDDDDDDDDODD 
DDDDDDDDDODD 


) DDD 
DDDDDODDDDDD 


ee 
as oe Oe 
mmm 


ee ae ns Oe ee Bes De Be Be es Od Bd ne Bd Bs Bo Oa bane Be ee eo 
ee eee ee 
Ge cin ey en Deeg Ee bet Oe Lee es Bs Dene ne Oe Dee Pd Ge bd ee Gt 
MMMMMMMMMMMMMMMenMMMmrmnceniecry 
MMMM MMMMMMMMMMMmMmMmnenicrniey 
MMMMMMMMMMMMMMMMMMmmMencnicny 


BBS SSSSVSSESSSS IE 


| **FILE**1D**PAINTR 
PPPPPPPP AAAAAA III] NN NN TTTTTTTTTT RRRRRRRR 
PPPPPPPP AAAAAA H1111 NN NN TTTTTTTTTT RRRRRRRR 
PP PP AA AA I] NN NN TT RR 
PP PP AA AA I] NN NN TT RR RR 
PP PP AA AA I] NNNN NN TT RR RR 
PP PP AA AA I] NN NN TT RR RR 
PPPPPPPP ba AA I] NN NN NN TT RRRRRRRR 
PPPPPPPP AA I] NN TT RRRRRRRR 
PP AAAAA I] NN NNNN TT RR RR 
PP AAAAAAAAAA I] NN NNNN TT RR RR 
PP AA AA I] NN NN TT RR RR 
PP ba AA I] NN NN TT RR RR 
PP Ab AA HII! NN NN TT RR RR 
PP AA HII! NN NN TT RR RR 
LL IIIIII SSSSSSSS 
LL HII] SSSSSSSS 
LL I] $$ 
LL I] S$ 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL -Il SS 
LL I] SS 
LL I] Ss 
LLELLLLLLLL IIIT] SSSSSSSS 
LLLLLLLLLL HII SSSSSSSS 


9 
PAINTR 16-SEP-1984 01:11:55 VAX/VMS Macro v04-00 Page 0 
Table of contents ; 


(2) $3 DEFINITIONS 

(3) 9 PPD SEND ROUTINES 

(3) 9 - SNDDG SEND DATAGRAM 

(4) 6 - SNDMSG SEND SEQUENCED MESSAGE 

(5) 44 - REQDAT REQUEST BLOCK DA 

(6) 469 - SNDDAT SEND BLOCK DATA 

(7) 496 - EADCNT READ COUNTERS 

(8) 39 - MRESET MAINTENANCE RESET 

(9) 577 - MSTART SEND MAINTENANCE START 
(10) 616 - CLRCACHE, CLEAR ANY PPD LAYER CACHES 
(11) 67 PA INTERRUPT ~SERVICE ROUTINE 

(12) 918 INT HANDLE PORT INTERRUPT 

(13): 104 HANDLERS NFOR RESPONSES WITH GOOD STATUS 

(13) 1041 - REC_CNFREC, SEND DATA IS COMPLETE 
(13) 104 - REC-DATREC, REQUEST DATA IS COMPLETE 
(14) =: 108 - REC-DGREC, PROCESS RECEIVED DG 

(15) 112 - REC-IDREC, PROCESS RECEIVED ID 

(16) = 1166 - REC"LBREC PROCESS RECEIVED LB DG 
(17) 1198 - REC-MSGREC, PROCESS RECEIVED MESSAGE 
(18) =: 123 - REC-RDCNT PORT COUNTERS READ 

(19) 1266 - REC-SETCKT, SET CIRCUIT DONE 

(20) 1317 - NDDG ROCESS SENT DATAGRAM 
(20) 1318 - INTSb1Sp SENDDG, DISPATCH A SENT DG 

(21) = 137 - REC DASG, PRO OCESS SE SENT MESSAGE 
(22) = 1406 - REC tit ID REQUEST 

(22) 1407 ° REC =SNDRST RESET + bd 

( ¢) 1408 - REC” SNDSTRYE START SENT 

(23) 1442 PROCESSING oF ERROR STATUS IN RESPONSE 

(24) 1540 - MACROS TO DEFINE ACTION TABLE 

(25) 1662 - OPCODE-DEPENDENT ERROR ACTION TABLE 

(26) 1760 - RSP_ERROR, bisP Isp ATCH ON ERROR 

(27) 1817 - RSP_PATH_FAIL, PROCESS SINGLE PATH 

(28) 1916 - RSP_UNREC_PKT, PROCESS RECEIPT oF 

(28) 1917 - UNRECOGNIZED 

(29) 1975 ° RSP_NO_PATH, PROCESS NO BATH 

(29) 1977 © RSP_PKTSIZ_VIO, PROCESS PACKET SIZE 

(29) 1978 - IOLATION STATUS 

(53 1979 - RSP_VC_CLOSED, PROCESS VC CLOSED 

(30) bee - ACTION ROUTINES 

(30) 069 - RSP_CACHECLR 

(313 114 - RSP~CLOSED_VC 

(32) 144 © RSP~CRASH_PORT 

(35) 177 © RSP~CRASH~ 

(34) 207 - RSP" DRAIN ERR 

(35) 51 - RSP~ IGNORE ERR 

(35) 5 - RSP~DISCARD_ERR 

(36) é - OPTIONAL DEBUG BUGCHECKS 

(37) 3 - INTSFATALQ_IDFQ, ERROR INSERTING ON DFQ 
(37) 7% - INTSFATALQ-IMFQ, ERROR INSERTING ON MFQ 
(37) 75 - INTS$FATALQ-CQL, ERROR INSERTING ON COMQL 
(37) 2 - INTSFATALQ-CQH, ERROR INSERTING ON COMQH 
(37) 7 - INTSFATALQ-RSPO, ERROR REMOVING FROM RSPQ 
(37) 78 - INTSFATALQ-RDFQ, ERROR REMOVING FROM DFQ 
(37) 79 - INTSFATALQ-RMFQ, ERROR REMOVING FROM MFQ 
(38) 463 PACKET ALLOCATION/BEALLOCATION/DISPOSAL ROUTINES 
(38) 464 - INTSINS FREEQ, DETERMINE IF PKT 


<v 


ark ee 


=] w 

ou Dw 

woo wo 

wa Oo =e Dw 
Dw a aw o25D 
woz use So 
200= oor WwW 
ogo gO “> ww 
wuwao >O aw 

ww Qo Ouc 

o wo =n we 
weuwrto wits 
Sue ewe Oa dtu 
- w Euu <xoacacvo 


Law teoo <a 

auFta a zs 
<a40d 2www 

@GuZzZz SS ot oe ee 


0 

0 
SDEAL_MSG, 
SDEAL_DG 


MNONCOM-TIM— CIMO 
WVOAVUADADOOCOCr 
FTF TNNAANE LPR. 
NANO OIOIENIOIOIOIONIOI 


POLLO LE LLL LLL LO 
DOOORr KK KVMS 
Ae ee ee eee ee ee 


ee ee ee ee ee er ee 


~SEP-1984 01:11: AX/VMS Macro Vv04-00 P 1 
18-SEp-1 P-1 3b 1:45:33 DRIVER. SRCIJPAINTR.MAR;2 ras (1). 


-TITLE PAINTR 
IDENT ‘V04-001' 


~PARARARAAARRAAAAALALAALALALLALE LALA LASALLE AEE E EERE ARES ARERR ESSE EE ERR AREER ES 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
tte ® Fee eee NVER. CORPORATION, MAYNARD, MASSACHUSETTS. 


ooo > 
340225 


* 
® 
® 
L * 
® 

IS * 
LY * 
CLU * 
PIE * 
HER * 
TRANSFERRED. * 
® 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND OULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. * 
® 

® 

* 

* 

* 

® 


DIGITAL ASSUMES NO RESPONS . 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH 


FOR THE USE OR _ RELIABILITY OF ITS 


LITY 
S NOT SUPPLIED BY DIGITAL. 


. . . . . . . . . . . 
** e@eeneneneneeneneneaenenaennnnen 


LARA RAAARASAAALELALLALALALALALASARS EASE SELES RRS E RRR E ARERR SERRE RRA R REESE GS | 


+ 
+ 


FACILITY: 
VAX/VMS EXECUTIVE, 1/0 DRIVERS 
ABSTRACT: CI PORT INTERRUPT SERVICE AND RESPONSE DISPATCHING 
AUTHOR: N. KRONENBERG, MAY 1981 
MODIFIED BY: 


v04-001 stg od N. Kronenberg yusop= 190s 
Yeon otpe of an parecogntzetie acket 
I TSALLOC PDDG rather than INTSALLOC att (which returns 
offset within buffer to application data) to get a 
buffer in which to command the port to inhibit dg 
reception from the incoherent port. 


v03-027 NPK3065 N. Kronenberg 23-Aug-1984 
_ ? -BSBW needed for queue checking and/or pkt 
racing. 


vV03-026 NPK3058 N. Kronenberg 25-Jul-1984 
Add nani bugcheck on message free queue empty. 


v03-025 NPK30 N. Cort eee 14-Jul-1984 
Fix bu in RSP_UNREC_PKT tha wee wiping out R1 
4K. o loggifg unrécognized pkt. 


v03-024 NPK3053 N. Kronenberg 24-May-1984 
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Fix problem with clearing response bit i REQID 
ne requeued to poll single remaining good 


v03-023 NPK3048 N. brenenbers 99-Apr-1984 
Fix bug in calculation of path select in reissuing 
of REQID in RSP_PATH_FAIL. 
Change aux status from SSS$_POWERFAIL (which was a fib 
anyway) to SS$_VCCLOSED when SETCKT closed is done. 
Support two new response status subtypes for response 
sequence number mismatch and for sequenced ms9 received 
on closed VCD. Both status types are presently 
implemented in experimental ucode only. 


V03-022 NPK3047 N. Kronenberg 15-Mar-1984 
aoerty RSP_PATH_FAIL in the case where only one 

path is discovered bad by a REQID. For this case, 
immediately reuse the REQID response to send a second 
REQID over the other path to determine if it is also 
bad. This is an optimization in discovering bad 

ve's via polling. 


vV03-021 NPK3046 N. arqneepery 7-Mar-1984 
Augment the comments in the INT$... port operation 
rimitives at the start of this module. 
estore the conditional calls to TRCSLOGMSG for sent 
datagrams and qeesepes. 
Zero R2 following the queuing of a command to the port 
to show that the software no longer owns the packet 
(helps catch bugs.) 
cnange the R2 input to INTSREADCNT to be the start of 
the PPD Layer of the pkt rather than the start of 
the ‘application’ data which is really not applicable. 
Fix receipt of an unrecognized packet to do nothing 
if the opcode of the packet is either maintenance 
egeet - start since these arrive in the normal course 
of events. 
Remove extra instructions in INTSSNDMSG/SNDGMSL which 
were Sonput sng the response bit rather than using it 
rectly. 


v03-020 TMKO001 Todd M. Katz 21-F eb-1984 
Make the following changes to PASINT, the PADRIVER's 
interrupt service routine: 


OO OONAUE WN OOo 


SIA AAA AA AAAI 


81 


000000000900 00 C0 C000 
FUN" OOONOUS wr 


95 


98 


COOOOOCooOooooooooooooooooooooooooooooooooooeo 


SOOCOOSOSSOOSOSOCOCOSOCOSOSOSSOSOSOSOOSOSOSSOSOCOSOOCOSCSOCSOOCOOCOOOOOOOCOCOOOOOOOoOoOO 


1. Fix a bug in the processing of errors reported via PSR 
defined interrupts. What should rapper when a defined PSR 
interrupt occurs is that it should be logged as a 
non-specific error, and the port should be re-initialized. 
Instead, because of a BEQL which should have been a BNEQ, 
such errors were being treated as un-defined errors (and 
correspondingly un-defined errors were being treated as 
defined errors). Un-defined errors result in an optional 
Sugcneck followed by the Logging of an un-expected interrupt 
and an attempt to re-init the port. 
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a a kt td td do 
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2. Port initializtion has been changed so that it is now done 


a 


SEP=1 1:15 DRIVER. SRCJPAINTR.MAR; 2 


at fork IPL instead of at IPLS$_POWER. Therefore, on a 
power-up when it comes time to-re-init the port, first 

device interrupts are disabled by clearing the hardware state 
and placing the port in the un-initialized state. Next, the 
new routine INISFORK is called with she address of INISPORT, 
the port initialization routine which is to eventually be 
executed at fork IPL. INISFORK will create ’ fork process and 
then returns control to PASINT so that the interrupt can be 
dismissed. In the creation of this fork process, INISFORK 
knows how to extract the fork block from the appropriate fork 
ueue in an atomic fashion, and how to make proper use of the 
ork block interlock bit. When the fork Po jun resumes, it 
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does so within INISFORK, and it proceeds to jump to INI$PORT 

so that a re-initialization of the port can be done. 
3. At the present time if the interrupt service routine has 
decided to crash and then reinitialize the port it will go 
ahead and do so regardless of whether or not the port is 
already in the process of being crashed and re-initialized. 
This is incorrect. The port should only be crashed and 
re-initialized once. If the port driver is already in the 
process of informing the SYSAPs as a prelude to crashing and 
eoonn ctantging the pect it should not do so a second time. 
Therefore, if PDTS$V_PWF_CLNUP is set within PDTSL_LPORT_STS, 
indicating that the port driver is in the process of 
informing the SYSAPs and will crash and re-initialize the 
port after the Last connection is DISCONNECTed, do not 
instigate a second round of SYSAP notification, port 
crashing, and port re-initialization. 


v03-019 SRBO113 Steve Beckhardt 20-F eb-1984 
Modified INTSALLOC_MSG so that this CDRP waits for pool 
if any CORPS are already waiting for pool. Modified 

INTSDEAL_MSG, INTSDEAL_DG, etc. to call EXESDEANONPAGED 

directly rather than going through COMSDRVDEALMEM. 


V03-018 NPK3045 N. Kronenber 23-Feb-1984 | 
Remove instruction in RSP_CLOSED_VC which set | 
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PBSC_VC_FAIL priec to calling SCSS$VCCLOSED. Must 
Let SCSSVCCLOSED do it instead. 


V03-017 NPK3042 N. Kronenberg 6-F eb-1984 
C CHE to simply return if the CLSCKT_DG 


T to call SCS$SETCKT_CLSD instead of 
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V03-016 NPK3039 N. Kronenberg 11-Jan-1984 
Add comments in INTSCLRCACHE. 
When cache clear is sent, zero PBSL_CLSCKT_DG to 
show the packet belongs to port now. When cache clear 
or SETCKT comes back, restore pkt address to PBSL_CLSCKT_DG. 
Fix PSR error check to distinguish between a defined 
| 
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oo 
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it is set and an undefined bit is set (difference 

n handling is in error log type.) Add SDEBUGCHECK 

if undefined bit is set. (This bugcheck is being | 
used with a test version of ucode to report unrecognized 
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x INV_OPCODE or unexpected opeede handli ng, te 
Lock up path block before erence ng to RSP_CRASH_PORT. 
kt size violation with received seq msg type “opcode 
(HS REC, RETDAT, RETCNF) port does not seem to close 
the vc, so close it explicitly. 


v03-015 ettetos N. Kronenberg 11-Nov-1983 
¢ performance in interrupt service 
gee Soeeu CHECKs for various pocket status errors 
be normally result in crashing and reiniting 
e port. 


v03-014 NPK3029 N. «Kronenberg 18-Jul-1983 
Enhancements for V4.0: 
Change action on buifer memory system error (e.g., 
port detected RDS) to handle port vc closure instead 
of crashing the port. 


v03-013 NPK3028 N. Kronenberg 19-Jul-1983 
Pix INTSTRNMSG to turn scs response around on high 
peter ten queue. 


VO3-012 NPK3024 N. Kronenberp 18-May-1983 
Add variable network header logic. 

V03-011 KTA3046 Kerbey T. Altmann 28-Mar-1983 
Redo for SCS/PPD split. 

vV03-010 NPK3012 N. Kronenberg 29-Nov-1982 
Fix cache cheer response error to BSBW to ERRSCACHECLR 
instead of J 

v03-009 NPK3010 N. Kronenberg 11-Nov-1982 
Invoke SSYSAPDEF and use symbols for dg recv and 
sent flags. 

v03-008 yo pen N. Kronenberg 30-Jul-1982 


add gemments for interrupt service. Add service for 
50 specific errors. 


v03-007 NPK3002 N. Kronenberg 1=-Jul-1982 
Fix interrupt service to dismiss PUP interrupt in the 
case where the PDT has been removed. 


v03-006 ROWO113 Ralph 0. Weber 28-JUN-1982 
Change PASINT to tog error with a hardware error subtype of 
pirgrpected interrupt’ when either PIC or MFQE is set in 
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This change will be in a new driver image shipped in V3.1. 


v03-005 NPK3001 N. Kronenber 22-Jun-1982 
Fixed cleanup of PPD type SNDDG with error status to 
return to pool or dg free queue depending on response 
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v03-004 ROW0095 Ralph 0. Weber 7-JUN-1982 
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Add calls to error Logging routines in the interrupt service 
routine at REINIT_PORT, PWR_DN d 

following routines: RSP_PATH_FAIL, RSP-UNREC_PKT, 
RSP_CLOSED_VC, RSP_CRASH_PORT, RSP_CRASA_VC, and all the 
INISFATALQ- error @ntry points. ATso added necessary 
reference fo SPAERDEF and rearranged the queue error entry 
geist code to make it simplier. 

his change will be in a new driver image shipped in V3.1. 


v03-003 NPK2019 N. Kronenberg 6-Apr-1982 

Add routine RSP_CRASH_PORT. 
e txee a number of error conditions in peppenese which 
reviously bugchecked to call RSP_CRASH_PORT. 

dded separate error handlers for queue interlock 
failures on different queues. Change failure to crash 
ort and continue rather than bugcheck. 

emoved test code from REM_NEXT_RSP. 

Change RSP_UNREC_PKT to crash vc if unrecognized 

kt is from node we have open VC to. 

ix RSP action dispatcher to branch to error handler 
and not to leave anything on the stack. 


v03-002 NPK2018 N. Kronenberg 25-Mar-1982 
Fix calculation of path status byte in RSP_PATH_FAIL. 
Fix REC_SETCKT to not deallocate dg if this is a SETCKT 
closed on VC crash. This dg is attached to PB. 
Fix to permit path failures reported on REQID, SNDRST, 
SNDSTRT to cause virtual circuit crashes. 


V03-001 NPK2016 N. Kronenberg 18-Mar-1982 
Fixed .TITLE 
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$ -SBTTL DEFINITIONS 
65 ; 
96 ; Set PSECT to driver code: 
6 e 
0000 $3 -PSECT $$$115_DRIVER,LONG 
71 3 
o ie 3; System definitions (LIB.MLB): 
74 
75 .nocross 
0 £6 SDYNDEF ; Structure type definitions 
000 7 SIDBDEF ; Interrupt Dispatch Block format 
000 78 SNOTDEF : Nexus Device Type codes 
000 79 PBDEF 3; Path Block format 
0000 80 SPD TDEF ; Port Descriptor Table format 
44 81 SSSDEF 3; System service definitions 
000 8 persnceer : Send/recv d ags 
0000 8 SUCBDEF 3; Unit Control Block format 
0000 84 
44 85 ; 
000 6 : CI specific definitions (PALIB.MLB): 
0000 87 ; 
Boop 88 
000 89 SPAERDEF ; Port driver error code values 
0000 90 SPAPBDEF : CI extension to P 
0000 91 SPAPDTDEF : CI extension to PDT 
0000 38 SPAREGDEF ; Define ci register layout 
0000 9 SPPDDEF ; Port-port message format 
0000 94 SPAUCBDEF ; UCB extensions 
0000 95 cross 
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97 -SBTTL PPD SEND ROUTINES 
38 -SBTTL = SNDDG SEND DATAGRAM 
0 ;+ 
1 ; These routines are used to send out a datagram buffer. The entry 
0 ¢ ; 3 ints are different for fhe position of RZ on entry = SNDDG has 
00 : pointing to SYSAP portion of message, SNDDG1 has R2 pointing 
3 : ; to the PPD/SCS portion. 
0 § : Inputs: 
09 8 : RO -Input flag 
3 R1 “Addr of P 
38 10; R2 “-Addr of buffer (see comments above) 
444 i ; RG “Addr of PDT 
000 18 : Outputs: 
44 15 : RO “Destroyed 
44 1g 3 R2 “Zero to show pkt now owned by port 
$009 18 ; Other registers “Preserved 
0000 19 ; 
0000 0 ;- 
0900 
000 : : Table of correct pots tons of RETFLAG and DISPOSAL flag respectively 
0000 4 ; for each option the SYSAP can specify in RO: 
0000 396 
0000 5 ASSUME SYSAPSC_DISPQ EQ 0 
4 8 ASSUME SYSAPSC_DISPRET EQ 1 
44 ; ASSUME SYSAPSC_DISPPO €Q 
0000 $ DG_SENT_FLGS: 
00 00 0000 a -BYTE 0,0 ; RO = SYSAPSC_DISPQ, return sent 
3 34 ; _dg to pers ree queue 
01 01 00 5 BYTE PPDSM_RSP,PPDSM_DISPOSE ; RO = SYSAPSC_DISPRET, return sent 
04 6 ; dg to cosperee ueue, then to sysap 
00 01 0004 7 -BYTE PPDSM_RSP,O ; RO = SYSAPSC_DISPPO, return sent 
006 8 ; dg to response queue, then to pool 
8 
3 ol INTSSNDDG: : 
52 0190 C46 C2 6 rk SUBL2 PDTS$L_DGHDRSZ(R4) ,R2 ; Point to PPD start of buffer 
B0 0008 44 MOVW #PPo$t_SCS - ; Set PPD type to application 
12 A2 0 D 49 PPDSW_MTYPE (R2) : datagram 
6 : 47 INTSSNDDG1:: 
50 D AF4O 3 OOF #8 MOVAW DG_SENT_FLGSCRO),RO 3; Get address of RETFLAG/DISPOSE 
00010000 8F C 14 29 BISL3 #<PPDSC”SNDDGA16>,- ; Set opcode, 
C Al 1A 1 PBB RSTATION(R1).- ; and port, 
C ae 1C 26 PPD$B_PORT(R2) 3; _into header 
OF A2 8 88 1E 5 BISB (RO)+,PPD$B_FLAGS(R2) ; Set RETFLAG 


17 


= SNDDG SEND DATAGRAM 
0B A2 60 90 : 


11 


6 
6 
6 


5 
; 


35 
60 


ASEH 


(RO) ,PPDSB_SWFLAG(R2) 


DF PASDEBUG 
TRCSLOGMSG 


QHI 
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; Set DISPOSE 


If debug is enabled, 
log command in trace buffer 


; Send it 
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§¢ -SBTTL = SNDOMSG SEND SEQUENCED MESSAGE 
64; 
65 ; INTSSNOMSG formats the PPD header and sends a te me ayy message at 
98 : high priority. INTSSNDMSGL is ms same, but sends the message at 
67 ; low apne & In both cases the input flag specified in RO has two 
oe ; legal values, 0 and 1. If 0, the port is instructed to return the sent 
$ > message to the port free queue. If 1, the port is told to return 
0 A 3; the message to the response queue for disposal by SCS. 
6 i : Inputs: 
6 74 ; RO -Input fla 
8 13 3 R1 “Addr of P 
6 § R2 -Addr of buffer 
S 4 ; RG “Addr of PDT 
23 : Outputs: 
0 81: RO “Destroyed 
$ Ht 3 R2 -Zero to show pkt now owned by port 
09 bs ; Other registers -Preserved 
gt a 
; 3 -ENABLE LSB 
3 ; my INTSSNDMSG: : 
52 0084 ¢4 C2 00 38 SUBL2 PODTSL_MSGHDRSZ(R4),R2 ; Point to PPD start of buffer 
06 «8B 3 D 9 MOVW #PPDST G,- 3; Set PPD type to application 
12 A2 OoF 394: PPDSW_ATYPE (R25 : message 
00020000 8F C9 $8 1 95 BISL3 #<PPDSC_SNDMSG@16>,- ; Set opcode, 
OC Al 037 36 PBSB_RSTATION(R1),-  : and port, 
OC A2 8 9 9 PPD$B_PORT(R2) : into header 
OF A2 50 88 bee a8 BISB RO, PPD$B_FLAGS(R2) 3; Set RETFLAG 
be F 400 IF DF PASDEBUG ; If debug enabled, 
OO3F 401 BSBW TRCSLOGMSG ; log message in trace buffer 
+ : $08 ~ENDC 
: i0s INTSINS_COMQH: : 
fF 4 $ QHI: SINS_COMQHIGH 3; Send it out 
52 Be 5A 40 CLRL Re ; Zero buffer pointer 
5 bee $38 RSB 3; Return 
bee 219 INTSSNDMSGL: : 
52 00B4 C4 C 030 tig SUBL2 PDTSL_MSGHDRSZ(R4) ,R2 ; Point to PPD start of buffer 
4 8 62 41 MOVW #PPDST_SCS_MSG,- 3; Set PPD type to application 
12 A2 64 414 PPDS$W_ATYPE (R25 ; message 
00020000 8F C9 66 415 BISL3 acProgc SNDMSG@16>,- 3; Set opcode, 
C Al 6C 416 pBsB STATION(RIS,- : and port, 
C aé of 41 PPD$B_PORT(R2) ; into header 
OF A2 5 88 418 BISB RO, PPD$SB_FLAGS(R2) ; Set RETFLAG 


<v 


PAINTR 16-SEP-1986 01:11:55 VAX/VMS Macro v04-00 Page 10. 
you~00t = SNDMSG SEND SEQUENCED MESSAGE 1 met 134533 YORIVER. SREIPAINTR MAR: 2 . (4) 
74 419 
74 =420 IF DF PASDEBUG ; If debug enabled, 
74 = 421 BSBW TRCSLOGMSG ; log message in trace buffer 
ue ? § -ENDC r 
31°0=«O«1 o agi BRB QLOw : Send it out 
, 4 $ INTSTRNMSG: : 
Sons ce ce ie 4 5} SUBL2 PDTSL_MSGHDRSZ(R4),R2 ; Point to PPD start of buffer 
00 9000¢ C8 OF 7B OG INSV #<PPDSC_SNDMSGa8>,#0,- : Set opcode 
OD Ae 18 430 #24,PPB$B_STATUS(R2) : Into header | 
5 4 é IF DF PASDEBUG ; If debug enabled, 
0 : 4 BSBwW TRCSLOGMSG ; log message in trace buffer 
0 ; 4 4 .ENDC : 
BB 11 0085 4 é BRB QHI : Send it out 
087 4 
087 438 


0 -DSABL LSB 


<v 


H 1 
PAINTR 16-SEP-1984 01:11: AX/VMS Macro Vv04-00 Page 
v04-001 = REQDAT REQUEST BLOCK DATA 18-S6 5-1 884 134b:33 YORIVER. SREIPAINTR MAR: 2 . 


-SBTTL = REQDAT REQUEST BLOCK DATA 


a 
™ 
oO 


:+ 
INTSREQDAT formats the PPD header of a message for a request block 
transfer operation and queues the message to the port. 


7 
7 661 
7 rr! : 
€ 6635 3 
; ie: 

; if ret : Inputs: 

087 448: R1 “Addr of PB 

087 449 ; R2 “Addr of message buffer 

0 4 $29 3 RG “Addr of PDT 

6 , i8¢ ; Outputs: 

087 454: RO “Destroyed 

3 4 $2? 3 R2 “Zero to show pkt now owned by port 

087 289 : Other registers -Perserved 

087 $28 3 

Be i 

BOR ree INTSREQDAT:: 

52 00B4 C4 ce 0087 188 SUBL PDTSL_MSGHDRSZ(R4),R2 ; Point to PPD start of buffer 
00080000 8F C9 O08C 464 BISL #PPO$ST_REQDATQ16,- 3; Set opcode 
OC Al 0092 465 PBSB_RSTATION(R1),- : and dst port 
OC A2 0094 466 PPD$B_PORT(R2) 3; in msg header 
OF 11 0096 467 BRB QLOW 3; Join common code 


~~ 
an 


ak a8 BS 9 Or 1:28 AX/VMS Macro V04-00 


= SNDDAT SEND BLOCK DATA 10-SEP-19 DRIVER.SR RC) PAINTR.MAR; 2 


9 $68 -SBTTL = SNDDAT SEND BLOCK DATA 
ue 
9 158 5 * INTSSNDDAT formats the PPD header of a message for a send block 
> 1S ; transfer operation and queues the message to the port. 
9 475 : Inputs: 
9 o78 : 

09 47 : R1 -Addr of PB 

09 £78 : 3 R2 “Addr of pessage buffer 
9 47 : RG “Addr of PDT 
.] 480 : 
9 481 ;- 

09 4 ¢ 

4 rt ¥4 INTSSNDDAT:: 

52 0084 C2 9 485 SUBL PDTSL_MSGHDRSZ(R4),R2 ; Point ee a start of buffer 
00100000 er C9 009 $36 BISL #PPDST_SNDDATA16,- : Set opco 
0c OA 48 PB$B_RSTATION(R1),- 5 and dest port # 
0c y Ny, $38 PPD$8_PORT(R2) ; in msg header 

GOA? 490 INTSINS_COMQL:: 

OA7 491 

ones +36 QLOW: SINS_COMQLOW ; Send off xfer command 

52 Oc2 49 CLRL R2 ; Zero buffer pointer 
00C6 8494 RS ; Return 


Page 1 
’ ( 


an 


v04-001 - READCNT READ COUNTERS 


C 49 ~SBTTL 
oi 
C 198 $ 
¢ 0; Inputs: 
ee R 
c3 8 ne 
C 4; R 
OC $3 RG 
C $ 3 
C ; Outputs: 
C 3 5 
C 3 RO 
OC 10 ; R1 
OC 11; R2 
Be \§ ; 
C 13; 
00C 14; 
bore 515 :- 
ocs 1g 
Bce 17 INTSREADCNT:: 
0c 18 
51 FF 8F 9A O00C5 th MOVZBL 
50 05 00C9 0 TSTL 
OA 13 OOCB 521 EQL 
51 90 9A Bace 5 § MOVZBL 
O17C C4 1 91 0D0 2 CMPB 
OF 1A 0005 4 BGTRU 
0D7 : 5 
9 4 : § 10$ BISL3 
OC A2 51 #£011A0000 B&F 8 8 
ie 0 9 D0_Q: B8SBB 
50 01 nt) ¢ 0 MOVL 
05 0 531 RSB 
8 6 236 
6 533 PORT_ERR: 
8 6 534 
50 028C 8F 3C 6 5 MOVZWL 
05 O0EB 6 RSB 
OOEC 37 


Other registers 


16-SEP-1984 01:11: AX/VMS Macro v04-00 Pa 13 | 
18xSEpm19be Oy i1si8? YORIVER. Cae IALATR WARs2 ve 13, 


ba READCNT READ COUNTERS 


“Addr of remote station to count for 
“Addr of datagram (start of PPD Layer) 
“Addr of COT 

“Addr of PDT 


“Status: SS$_NORMAL, SS$_NOSUCHNODE 


“Destroyed 


-0, to show pkt now owned by port 


#255,R1 
RO 

108 
(RO) ,R1 
R1,POT$B_MAX_PORT(R4) 
PORT_ERR 
#<<PPDSM_RSPa24>!- 
<PPDSC_RDCNT@16>>,- 
R1,PPD$B_PORT(R2) 


QLOW 
#SS$_NORMAL ,RO 


#SS$_NOSUCHNODE ,RO 


-Preserved 


Assume counting to all ports 
ALL stations? 

Branch if so 

Else get port caller wants 
Legal 


Branch if not 


Specify response wanted 
Put opcode and 

port # in dg buffer 
And send it 

Set success 


Set error status 
Return to SYSAP 


a 


PAINTR -SEP-1984 AX/VMS o v04-00 P 14 | 
yOen00t - MRESET MAINTENANCE RESET 18: -SEP-1 1382 gt 133 33 DRIVER. SPAINTR. MAR; 2 me (8) | 
a i .SBTTL - . MRESET MAINTENANCE RESET | 
EC 41 ;+ | 
EC tg ; INTSMRESET formats the PPD header of a datagram to do a remote 
oee ti ; port maintenance reset and queues the dg to the local port. 
EC 49 : Inputs: 
bre 23 : RO -0/1 for don't/do force reset 
OEC $8 3 RI “Addr of remote station to reset 
OEC 49 ; R2 “Addr of datagram 
pee 29 : R4 “Addr of PDT 
oe 3g 2 Outputs: | 
OoeC 54: RO “Status: SS$_NORMAL, SS$_NOSUCHNODE | 
OEC 35 3 RY -Destroyed 
Beet 2$ 3 R2 -0, to show pkt now owned by port 
QOEC 338 : Other registers -Preserved 
OEC 59 ; 
gt deP 
OoEC 368 INTSMRESET: : 
a: 3 9A ig ae MOVZBL (R1),R1 ; Get remote port # | 
O17C C4 1 91 OEF 65 CMPB Ri POTS _MAX_PORT(R4) 3; Legal? 
FO 1A pore 206 BGTRU PORT 3; No, error ou 
50 50 FF 8F gore ef ROTL #-1, RbS : pk ee in h.o. 
51 50 C8 OOFB 569 BISL : OR into port % 
52 0190 C4 ce ore 570 sueL¢ apts yet te Re 3; Point to PPD iis of buffer 
C 10 571 BISL #<<PPBSM_RSPa24>!- : Spec ity response wanted, and 
9104 278 copest SNORSTai6>>. - ; OR in epee ode 
OC A2 51 01060000 8F Ho 7 PORT (R2) 3 and put in 
10 A2 7¢ ~«010C «(57% CLROQ Prose, ta “1D(R2) ; 
CF 11. +O10F 575 BRB DO_Q 3; Send 


| 
| 
n dg 
Set transaction ID = 0 | 
} 


a 


tL 10 
AINTR 16-SEP-1 AX/VMS Macro v04-00 Pa 15 
v04-001 = MSTART SEND MAINTENANCE START 10-SEP-1 138 tee 4:33 DRIVER. SRCJPAINTR.MAR;2 ad (9). 


111 77 -SBTTL = MSTART SEND MAINTENANCE START 
Ha. 
111 0 ; INTSMSTART formats the PPD header of a datagram to do a remote port 
i 1 ; maintenance start and queues the dg to the local port. 
Mi g 3; Inputs: 
111 S$: RO -1/0 for use Corot scapes tT tee start addr 
111 § 3 R1 “Addr of remote ies 
111 5 Re “Addr of datagram 
111 8 3 B “Start address to send 
111 3 R4 “Addr of PDT 
111 0; 
Ni 4 ; Outputs: 
a 3 3 RO “Status: SS$_NORMAL, SS$_NOSUCHNODE 
111 94; a -Destroye 
att 336 3 R2 -0, to show pkt now owned by port 
0111 3 3 Other registers -Preserved 
gti} 205 : 
111 99 :- 
at 600 
111 601 INTSMSTART:: 
gt one 
51 $1 9A 0111 60 MOVZBL (R1),R1 3 oe remote port # 
017¢ C46 519s 0114 604 CMPB OR room pare. apt ; Legal? 
B 1A 0119 605 BGTRU PORT : No, error out 
50 50 FF 8F 9C Q11 60 ROTL #-1 Ro. ; Position default start addr flag 
51 50 CB 01 60 BISL ROR : and OR into port # 
52. 019004 (C2 01 608 SUBL2 POTSL DGHDRSZ(R4) , +R2; Point to PPD start of buffer 
C9 0128 609 BISL #<<PPOSM_RSPa24>! 3 Speci ty veogenne wanted, and 
+ 9 610 i SNDSTATai6>>,- : R in opcod 
OC A2 51 401070000 8F 129 611 PPDSB_PORT 3 and put in do 
18 A253 00 0131 61g MOVL BSL ST ADDR(R2) ? set start addr in case used 
A2 C 0135 61 CLRO reba XCT_IBCR ; Set transaction ID = 0 
A6 11 0138 614 BRE DO_Q : Send it 


— 


ab et 91:1 33 AX/VMS Macro v04-00 Page 1 


= CLRCACHE, CLEAR ANY PPD LAYER CACHES SEP-19 DRIVER. SRCJPAINTR.MAR;2 (10) | 
13, i .SBTTL - CLRCACHE, CLEAR ANY PPD LAYER CACHES | 
13A 18 ;¢ 
135A 3 ; Sends out a sequenced msg at the lowest priority een vng for a 
135A ° 9 3; response. It is assumed that the msg completes with circuit closed 
135A ; error status. The msg is sent after any other traffic on this 
135A 6 § : circuit. When the msg comes back, it must be after any other 
135A 625 ; commands queued to the port or responses held by the port and hence 
135A 624 ; guarantees that the port holds no more packets associated with this 
; . ? 5 ; circuit. 
13A ? $ : The packet used to send the cache clear should always be available 
13A 8 ; since this routine is not supposed to be called if a virtual circuit 
135A 629 ; failure is already in progress. However, just in case, if the packet 
a > ? : ; is not available simply return. 
13A 632 : Inputs: 
013A «26 § 3 
4 ‘ ° : : R1 -PB addr | 
i A 6 6 ; Outputs: 
13A «66 3 : RO,R2 -Destroyed 
4 " 273 : Other registers -Preserved 
a13A 641 : PBSL_CLSCKT_DG(R1) -0, to show port owns packet 
013A 643° | 
+ rn ote -ENABL LSB 
3 . of INTSCLRCACHE: : 
52 S54 Al 0D 61 A 648 MOVL PBSL_CLSCKT_DG(R1),R2 ; Get addr of preallocated dg 
1F 4 06130=«01 649 BEQL 10$ ; Branch if not available 
54 Al D4 0140 630 CLRL PBSL_CLSCKT_DG(R1) :; Zero address of dg in P | 
02 B60 014 65 MOVW #PPOSC CACHE N,- : Set PPD Length 
10 A2 145 638 PPD$W_CENGTHTR2) : 
me RE | MO RE arneeten” | Set OP tone code 
OC Al 90 0140 655 MOVB PB$B_RSTATION(R1),- : Get remote port number from PB 
OC A2 150 $26 PPD$SB_PORT(R2 F 
FO 015 65 INSV <PPDSM_RSPal6>!- ; Send msg, specifiying response 
015 658 <PPD$C_SNDMSG@8>,- 3 
0D A2 18 00 00010200 8F B12 659 #0,#24,PPD$B_STATUS(R2) ; to offending port 
FF48 31 #0O15C 660 BRw aL dw 3; at low orton iy so it | 
15F 661 ; will go out after all else 
15F 6 66 ; NOTE: This is the only place 
15F 66 ; where a sequenced msq goes out 
15F 664 ; ina CIDG structure type pkt. 
15F 665 : This is so that this msg and 
15F 66 ; the SETCKT closed that preceded | 
if 28 ; it can go out in the same buffer. 
05 137 ? , 10$: RSB ; Return | 
160 671 -DSABL LSB 


5 


, 
| 


| 
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t 
RDS on the 780 corresponds to UCE on the 750; and TDEAD/TFAIL on the 
780 correspond to T DCLO/T ACLO on the 750. 


3. If PON is set in the CNF, log it. write CNF to itself to clear the 
condition, and initiate software power fail recovery logic. 


4. If PUP is set in the CNF, log it, disable Cl interrupts, and execute 
port reinitialization. 


5. If the C1750 bit, NOCI, is set, then log registers and shut the port 
down without bothering to do any retries. 


PA_LINTERRUPT_SERVICE ROUTINE “SEP-1 DRIVER. SRCJPAINTR.MAR; 2 (11) 
i -SBTTL PA_INTERRUPT_SERVICE ROUTINE 
75 3+ 
2 PASINT is called to service a Cl interrupt. First, the shortest checks 
7 possible are made to determine that the interrupt is for a response, 
a not an error. Three checks are necessary. If: 
680 ; = there are no bits set in the configuration register (CNF) besides | 
681 the adapter type code, and 
6 ¢ - MTE is clear in the port status register (PS), and 
? Z = there are no bits except response available (RQA) set in the PS, then | 
e 5 ; no error has occurred and fork is taken to dequeue the next response. 
6 > If there are bits set in the CNF besides the adapter type code, then | 
e 3 analyze and handle those bits as follows: 
690 ; 1. If ony 11/780 SBl1 error bits (31:26) or C’ are set, then write 
691 the CNF to itself to clear the error cond:.ion and proceed to 
0 69 the MTE check. The rationale for ignoring CRDs is that memory is 
0 69 still considered good in the presence of corrected read errors. The | 
8 694 rationale for ignoring SBI errors is that they will be seen by 
8 344 appropriate SB! interrupts. 
0 697 ; 2. If any of the bite CKTMO, RDTO, CXTER, RDS. TFAIL, TDEAD, PFD, or | 
0 698 the 11/750 specific bits CTO, CIBPE, or MAINT are set in the CNF, then 
0 99 reinit the port. The assumption is that the port has a serious error. 
0 00 The epounpt ven may be too optimistic as the CPU may be at fault. but 
, 701 this handling results in minimum disturbance to running software if 
0 


is true. Note that CXTMO on the 780 corresponds to NXM on the 750; | 
0 
| 


6. If any other bits (undefined) are set, write the CNF to itself to 
clear the condition and proceed to the MTE check. 


Next check MTE in the PS. If it is set, then some sort of parity error is 
sagt tog. tn this case, device registers are logged, and the port is 
reinitialized. 


Finally, if MTE is clear, then the rest of the PS can be analyzed. If 
there are any bits set in the PS besides RQA, then the device registers 
are logged and the port reinitialized. | 


Call: JSB from CRB interrupt vector dispatcher 
; Inputs: 


a a ee DD eB a a a a a a a a a a a a a aaa aD 
DEEPA AAA AAA AAA AA AAA AAAAAAA AAA AA AA AA AAAAAASAAA AAA AAAAAOOAAAS 


SOOOCOCOCOSOOOCOCOSOSOOOOCOCOOCOOSOOOOOOOOOOOOOOOOOoOoOOoOO 


DOONAN WINS ODNOAUES WIN — OOONAOUS 


J 
Bete Se Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Sse Ge Ge Go Ge Ge Ge Ge Se Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


NANNING 
PORSPONONONONONNIN) 3 3 | OOOO 


COOCOOOCOOOOCOOCOOOCOoOoC” ~ 
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PA_INTERRUPT_SERVICE ROUTINE 10-SEP-1984 01:15: DRIVER. SRCJPAINTR.MAR; 2 (11) 


16 


PA 
vO. 
P) “Addr of ID 
)=16(SP) “Saved R2-R 

P) “Interrupt PC 
P) “Interrupt PSL 


—_ 
Oo 
Oooo 


SUME PA_CNF 


AS EQ 0 
ASSUME PA_PS_M_MTE EQ 1831 
$B 


730 
160 933 
160988 | 
16 734 
rae 
160 7 ; 
160 939 : 
FCO00000 016 740 SBIERR =*xFC000000 ; CNF, SBI errors that are ignored 
16 fe) ; because they will be caught via 
16 1 ; SBI fault: PAR FLT, WSQ FLT, | 
193 74 ; URD FLT, unused bit, MXT FLT, 
198 oe : XMT FLT | 
001EE700 8106 rg FATAL_CNFERR =*X001EE700 ; CNF_errors that are not ignored: 
160 74 : CXTMO, RDTO, CXTER, RDS, TRAIL | 
0160 748 : TDEAD, PFD, and the 750 specific 
9160 149 : errors MAINT, CIBPE and CTO 
Q000007E 0160 751 PSR_ERRORS =*x0000007E ; Defined bits in the Port Status | 
8188 £36 3; register. 
até Pe -ENABL LSB | 
B188 £36 PASINT:: 
53 9 0 0160 758 MOVL a(SP)+,R3 : Get 1DB address | 
54 6 DO 016 759 MOVL IDBSL_CSR(R3) ,R4 ; Get addr of configuration register 
55 18 AS 00 3188 £60 MOVL IDB$! “UCBLST(R3) ,R5 3; Get UCB addr 
He fe CHK_CNF: 
38 64 Di QOI16A 764 CMPL PA_CNF(R4) ,ANDT$_CI 3; Any config reg bits set except type? 
27) = 12 «016D = 765 BNEQ CNF_ERR ; Branch if yes 
O16F 76 
glee fag cms 
52 0900 C4 DO O16F 769 MOVL PA_PS(R4) ,R2 ; MTE set? (Get PSR in general register) 
03 14 0174 770 BGTR CHR PSR ; Branch if not 
QOA7 (31 176 44 BRW REINIT_PORT ; Else parity error forces reinit | 
18 78 CHK_PSR: 
52 FFFFFFFE 8F D3 179 = 775 BITL #*C<PA_PS_M_RQA>,R2 ; Any bits set in PSR besides RQA? 
| a ore BNEQ PS_ERR ; Branch if so (serious error) 
1 ; 77 3; Else no error! 
01 vO 01 ore MOVL #PA_PSR_M_PSC,- ; Release port registers 
0918 f 184 77 PA_PSR(R4Y 3 
1 €2 0187 780 BBSS #uce V_FKLOCK,= ; Set fork block interlock and 
68 AS 189 781 UCBSQ_BEVSTS(RS) ,- : branch if already set | 
93 1 ? ¢ DISMISS INT ; to dismiss interrupt | 
010D 30 ! c 4 ? BSBW HANDLE _INT ; Handle interrupt at fork IPL | 
18F 785 DISMISS_INT: 
18F 786 


PAINTR 
v04-001 


a 


36 4 
52 FC010000 f 


64 64 

c8 

25 52 9 
7E 0 

54 0084 C5 
54 63 

50 8002 8F 
58 


 §2 0000007E 8F 


47 

7E 850 

54 ©0084 C5 
54 63 

50 8005 8F 
2A 


52 001EE700 


58 5 
BF 5 


PA_LINTERRUPT_SERVICE ROUTINE 


fp 8c 7 mMOVQ 
dD QI 8 MOVa 
19 
02 019 790 REI 
138 791 
19 186 CNF_LERR: 
196 2 
D 138 94 MOVL 
Dd 19 795 BITL 
1 1A £36 BEQL 
1A 9 
1A O38 CNF_OK: 
1A 79 
DO O1A aay MOVL 
11 1A 4 1 BRB 
1A 8s 
1A? 803 PS_ERR: 
BiAe 04 
1 1A7 05 BBC 
D Q1AB £06 M 
dO piag 80 
018 808 
lt) B18 809 
01C aio 
32 01C9 11 CVTWL 
11 pice S16 BRB 
01D 81 
D3 0100 814 5$: BITL 
att $12 
12 0107 16 BNEQ 
7D 0109 817 MOVQ 
DO O1DC 818 
O1E1 819 
DO O1F4 ago MOVL 
bree $3 
2 O1F7 $ ¢ CVTWL 
1 1FC BRB 
1FE 4 
1FE 5 OTHER_CNF_ERR: 
1FE 6 
D3 FE 7 BITL 
1 0 8 NEQ 
E ? BS 
E 0 BBS 
—1 F 1 BBC 
Ws 
1 
! : NO_C1750: 
70 1 8 MOVQ 
‘ 16 CVTWL 
18 8 BSBW 
1 BRB 
40 
*} 
23 


SSSSm 


REINIT_PORT: 


MOVL —_ UCBSL_PDT( 
SDEBUGCHECK #ERRSV 
MOVL 


MOVL —_- UCBSL_P 
SDEBUGCHE CK WERRSV DEB PSRX 


kt St B49 1:11:38 YAN‘ vas Macro v04-00 Page 


4 01:1 DRIVER. SRCIJPAINTR.MAR; 2 


(SP)+,R2 ; Restore registers saved 

(SP)+,R4 ; on normal interrupt 

PA_CNF(R4) ,R2 ; Get copy of config fogtster handy 
#<SBIERR'PA_CNF_M_CRD>,R2 ; Ignorable error bit set? 
OTHER_CNF_ERR ; Branch if not 


; Else config register OK 


; Clear status bits in CNF 


PA_CNF(R4) ,PA_CNF(R4) 
o ; Continue error checking 


CHR_MTE 


#PA_PS.V_MFQE.R2,5S 
T(RS 


Branch if not MFQ empty 
Else save more registers 
Get PDT addr 
Do optional bugcheck 
Retreive config register 
addr if bugcheck disabled 
Set up and log 
general hw error 


),R4 
EB MFQE 
IDBSL_CSR(R3) ,R4 


#<PAERSK_ES_HWER ! “X8000>,R0 
HDWR_ERR_COBE 


#PSR_ERRORS ,R2 

REINIT PORT 

R - 
BSL_PDT(R5S) ,R4 


; Is error in PSR an 

; defined interrupt? 

Branch if so. 

Save more registers 

Get PDT address 

Optionally bugcheck 

Retreive config register 
address if bugcheck disabled 
Setup and tog 

an unexpected interrupt. 


IDBSL_CSR(R3) ,R4 


#<PAERSK_ES_UXIN ! “x8000>, RO 
HDWR_ERR~CODE 


Sete Ge Ge Ge Se Se Ge Oe & 


#FATAL_CNFERR,R2 ; Fatal error bit in config reg? 
REINIT_ PORT 3; Branch if so 
#PA_CNF_V_PDN,R2,PWR_ON ; Branch if port power down 
#PA_CNF_V_PUP,R2,PWR_UP ; Branch if port power up 
#PA-CNF-V“NOCE,R2,- : Branch if NOCI not set either 
CNF_OK 3 go check elsewhere for error 


RO,-(SP) ; Save more registers 
#<PAERSK ES_HWER !*X8000>.RO =; Log a non-specific 
ELOGSHARBWARE :; hardware error. 
UNRECOV_ERR ; Join genera’ port 

3 t gode. but with 


es permitted. 


rein 
no retr 


19 
(11) 
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PA_LINTERRUPT_SERVICE ROUTINE 18-SEP-1984 Bh i1$:8 DRIVER.SRCJPAINTR.MAR;2 . hie 
7 0 MOVa = RO, = (SP) ; Save more registers 
50 8502 af $ CVTWL #<PAERSK_ES_HWER ! *x8000>, RO ; tog a non-specific error | 
HDWR_ERR_CODE: | 
FODS’ 3 BSBW ELOGSHARDWARE 3; Log registers 

0404 O01 =D MOVL #PA_PMC_M_MIN,PA_PMC(R4); Do a maint init on port in case 
; we are out of init retries 

er oe MOVZWL #SS$_ABORT,R1 Assume we are not out of retries, 


but tell SYSAP not to expect 
cached send dg's back 

Decr retry count 

Branch if not out of retries 


0080 (5 9 DECB UCBSB_ERTCNT(RS) 
05 1 BGEQ 108 
UNRECOV_ERR: 


MOVZWL 9 #SS$_CTRLERR,R1 


51 0054 8F 3C¢ Else set aux status to tell SYSAP's 


port won't be coming back 


: 
| 


9 DPN NIN SIO O NENG BNE PSS SS WOOO TN MW OODOOwond 
NAME WN OS OD NOA UE WIN SO ODA UE WIN O OOD NOUS WN OOONOUE 


$00.09 0909 09 69 09 09 09 09 09 SIN IN SIN SSNS NN AAA AAA AAA MMIII & 


54 0084 C5 00 3 10$: MOVL UCBSL_PDT(RS) ,R4 ; Get PDT addr 
18 #11 : BRB 20$ 3 Join common crashed port code 
0 4 PWR_DN: | 
7E 50 7D 5 4 mMOVa RO,-(SP) ; Save more registers | 
50 03 9A 024 MOVZBL #PAERSK_ES_PDWN, RO ; Log a power down error. 
FDB3" 30 8 4 BSBW ELOGSHARDWARE 
54 0084 C5 dO 4 MOVL UCBSL_PDT(RS) ,R4 3; Get PDT addr 
02 AA 025 BICw2 #POT PUP,=- ; Clear PUP in PDT 
0110 C4 039 PDT$wW_CPORT_STS(R4) | 
51 0364 8F 3C 8 2 MOVZWL #SS$_POWERFAIL,R1 3; Set aux status to report to SYSAP's | 
00 E2 038 20$: BBSS #POTSV_PWF_CLNUP,- 3; Set cleanup in progress 
0110 cs 5 PDT$W_CPORT_STS(R4).- : Dismiss interrupt if SYSAP 
7 026 DISMISS_ERR-INT ; notification is already in progress | 
FD9B’ 30 026 BSBW ERRSPWF_RECOV ; Call routine to set unit offline, 
6 ; and fork to notify SYSAP's to 
6 3; DISCONNECT 
= «(UW ? BRB DISMISS_ERR_INT ; Go dismiss interrupt 
6 PWR_UP: 
| 
43 0 7D 6 mova RO,-(SP) ; Save more registers 
5 4 A 6 8 MOVZBL #PAERSK_ES_PUP, RO ; Log a power up error. 
FD90° 0 § 9 BSBW ELOGSHARDWARE 
046 CA 0 BICL #PA_PMC_M_MIE,- ; Disable interrupts on CI port, 
04 A4 7 1 PA_PMC(R4T ; but leave pup set to show Cl 
74 6 ; has powered up again 
54 0084 C5 09 74 +] MOVL UCBSL_PDT(R5) ,R4 ; Get PDT addr | 
1 1 79 94 BEQL DISMISS_ERR_INT ; Branch if port shut down and PDT gone 
0 A8& 78 95 BISW #PDTSM_PUP,= ; Set power up occurred 
0110 C4 7D %6 POT$w_CPORT_STS(R4) : in port status | 
EO 9 BBS #PDTST_PwF_CLNUP,- ; Branch if pwr failure cleanup 
0110 C4 38 POT$W_CPORT STS(R4),- 3 still underway 
13 2 4 DISMISS_ERR_INT ; 


E 11 
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54 O0E4 ff 4 6 MOVL POTSL_CNF(R4) ,R4 3 Get a register addr 
3 AG 1 MOVL #PA_PRC_M MIN,PA_PMC(R4); Place por in un-initialized state 
53 0 ae PS F MOVAB INISPORT,R3 ; Re-initialization routine address 
FD67" BSBW INISFORK 3; Create the fork erecess to perform 
3; the port re-initialization 


i DISMISS_ERR_INT: 


POPR #*M<RO,R1,R2,R3,R4,R5> ; Restore full complement of registers 
REI Exit interrupt 


" 
308 
i 
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«-SBTTL HANDLE_INT, HANDLE PORT INTERRUPT 


This routine forks immediately leaving the address of the port 
UCBO in RS. From the UCB, the PDT is obtained. 


Entry REM_RSP is where a response is removed from the seapenae 


OOO 
— 
wns 


— 
OWONOA UNE WIN 9 ODNO NE WN - OOONAUNS 


Bete Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Be Ge Ge Ge Ge Se Ge Ge Se Se Ge Ge Ge Ge Ge Ge 
+ 


ueue and checked for error. Packet errors are handle 
n RSP_ERROR and other routines labelled ‘RSP_...'. 


Error-free dequeued responses are dispatched on the messge opcode. 
Note that the ‘message received’ opcode is optimized by checking 
for it first before gesting on other opcodes. Unrecogn zed 
opcodes are handled by op tones ty bugsheck tng or if the bugcheck 
is disabled by crashing and reinitializing the port. 

Legal opcodes are handled by branching to their handlers. Handler 
routine names are of the form REC_‘opcode. 


The message is processed by the handler which completes with a 
branch back to REM_NEXT_RSP to dequeue the next response. Thus | 
a single snterrupt results in several responses a processed 
if they are in the queue. Responses are dequeved and processed | 
until none remain on the queue. At this time the 1/0 fork process 
completes with an RSB. 


As a performance optimization, REM_NEXT_RSP first checks for 

an empty response queue header with a TSTL rather than trying 

to ge bs attempting the REMQHI. This optimization is worth 

doing since it is actually relatively rare that multiple responses 
pile up on the response queue. 


DOOOOOOOOOOOOOOOOOOOCOOO0O 


WINN WII WWWIrnononononononononn es 


z 


OOONAULS WN Oo 


R4 “Addr of port configuration register 
RS “Addr of port UCB, unit 0 


| 
Inputs: 
| 


757 SS 


-ENABL LSB 
HANDLE _INT: 
10F ORK Fork and lower IPL 
BICW Clear fork block in use 
UCBSW_ ) lock bit 
MOVL UCBSL RS ; Get PDT address 
REM_RSP: ; Entry for removing a response 
SREM_RESPQ 
BYS NO 
96 BBC #PPOSV_ERR,- 
96 PPD$SB_STATUS(R2),- 
64 OPCODE_DISP 
65 BRW RSP_ERROR 


HFHPNIOOOOPOOPOOOOPOPOOODOIOOOOOBOVOOIOAAOOAOAAIOAOAAIAIAAAAIAIAISY 


DWDOOOOOOOOOOOOOOOOO 


AAAI 


Get next response, addr in R2 
Branch if no more responses 
Branch if no error set 

in response status 


=—OOONOUSWwn— 


O00 
oO 


Else go handle error and 

dispose of the response 

Continue with known good 

good response or ignorable error. 


woouooumn 


SOSSOOCSOOOSSOOSOSOOOCOOOOOCOOOOOOOOOOOOOOOOOOOoOO 


18-SEP-1986 91:15:37 EDAIVER. SREIPAINTR.RAR;2 


, REM_NEXT_RSP: 
7 TSTL PDT$Q_RSPQ(R4) 3; Response queue empty? 
7 BNEQ REM_RSP ; Branch if not 
ie RSB ; Else exit fork 
$76 OPCODE_DISP: 
4 CMPB PPD$B_OPC(R2),- ; Is this a message receive? 
7 #PPDST_MSGREC : 
2 9 BNEQ 10$ 3 Branch if not 
3 BRW REC_MSGREC ; Branch if so 
5 9 : NO_RSP: ; No more responses, end of 
D9 «§=—-:»98B4 ; fork process 
05 44 2 5 RSB 
DA 9 ; 108: ; Begin giant dispatch: 
DA 988 SDISPATCH - 
8 + 44 PPOSE _OPC (Re) , TYPE=B.= ; Dispatch on opcode 
O2DA 991 <PPD$C_SNDDG REC_SNDDG>,=- ; Datagram sent 
OZDA  99¢ <PPDSC"SNDMSG, REC-SNDMSG>,- ; Message sent 
O2DA 99 <PPDSC_RETCNF, REC_RETCNF>,- ; Confirm returned 
O2DA 994 <PPDSC_REQDAT, REC_REQDAT>,- ; Data requested 
O2DA 995 <PPDSC_REQID REC_REQID>,=- ; ID requested 
O2DA <PPDSC-SNDRST, REC-SNDRST>,- ; Reset sent 
O2DA <PPDSC_SNDSTRT, REC-SNDSTRT>,- ; Start sent 
O2DA 8 <PPDSC-REQMDAT, REC-REQMDAT>.- ; Maint data requested 
8 DA 99 <PPDSC_SNDDAT, REC_SNDDAT>,- ; Data sent 
DA 1000 <PPDSC_RETDAT, REC_RETDAT>,- ; Data returned 
02DA 1001 <PPDSC"SNDMDAT, REC-SNDMDAT>,- ; Maint data sent 
O2DA 1 8 <PPDSC_SETCKT, REC_SETCKT>,- ; Virtual circuit opened 
8 DA 100 <PPDSC_RDCNT, REC_RDCNT>,- ; Counters read 
DA 1004 <PPD$C_DGREC REC_DGREC>,=- ; Datagram received 
6 DA 1005 <PPDSC_CNFREC, REC-CNFREC>,- : Confirm received — 
DA 1 06 <PPDSC_MCNFREC, REC-MCNFREC>,- ; Maint confirm received 
O2DA 1 <PPDSC_IDR REC_IDREC>,=- 3; Received ID 
6 DA 1 08 <PPDSC_DATREC, REC-DATREC>,- : Data received 
DA 100 <PPDSC-MDATREC, REC-MDATREC>,- ; Maint data received 
8 DA 1010 <PPDSC_SNDLB, REC_SNDLB>,- ; Loopback dg sent 
DA 1011 <PPDSC_LBREC, REC_LBREC>,- ; Loopback dg received 
0 _ ! \ <PPOSC_INVIC, REC_INVTC>,=- ; Invalidate xlation cache 
45 1014 : End of giant dispatch 
45 1015 INV_OPCODE: ; Fall through to undefined 
45 1 6 ; opcode 
att 
; Messages not handled for one reason or another: 
rt) ! i M t handled f th 
45 1021 ° 
45 1 § REC_SNDDAT: ; No success response ever requested 
45 1 REC_RETCNF: ; No success response ever requested 
45 1024 REC_REQDAT: ; No success response ever requested 
: ; Command never issue 
45 1025 REC_REQMDAT C d d 
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45 1 REC_RETDAT: ; No success response ever requested 
45 1 REC_SNDMDAT: ; Command never issued 
45 1 8 REC_MCNFREC: ; Command never issued 
45 1 REC_MDATREC ; Command never issued 
r ! ? REC_SNDLB ; No success response ever requested 
45 1 § SDEBUGCHECK #ERRSV_DEB_INVOP $ Opt tonal bugcheck 

51 04 8 1 CLRL R1 ; Show no path available (response 
A 1034 ; isn't trustworthy enough to use 
A 18 5 ; _in PB lookup) 

Ste 31 2A ! § BRW RSP_CRASH_PORT ; Go init port crash 
; 3D 19 8 -DSABL LSB 


| 
| 
' 
} 
' 
| 
| 
} 
| 
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D 104 -SBTTL HANDLERS FOR RESPONSES WITH GOOD STATUS 
D 104 ~SBTTL REC_CNFREC, SEND DATA IS COMPL a E 
D 104 . SBT tt ° REC_DATREC, REQUEST DATA IS COMPLETE 
5 Re 
p 49 : These routines perform the same steps. 
D 1 23 : First, the CONID pert ies of the XCT_ID ‘s vert ited and converted 
D1 48 : to CDT address SPID portion of the XCT_ID is converted to the 
D 1049 ; response descriptor. address and the coe’ adirGen extracted from the 
dD 1 3; RD. The RSPID and geste . pycrer containing the CNFREC/DATREC 
dD 1 3; are then deallocated. LY. the context of the suspended SYSAP 
dD 1 ; 18 restored and the SySAP" 4 ed back at the PC following the 
: ! e7 3; call to send/request data. 
2p } 22 : Inputs: 
8 5D 1987 : R2 “Addr of message 
8 2p : 28 : RG “Addr of PDT 
8 4 1966 : Outputs: 
0350 1066 : RO-R3 -Destroyed 
b320 1065 ; Other registers -Preserved 
ub Bes 
Ne 1908 -ENABL LSB 
o325 +: REC_DATREC: 
8 . 1070 REC_CNFREC: 
50 1976 IF DF PASDEBUG : Debug facility 
5D 107 BSBW TRCSLOGMSG ; Log message 
fk eae : 
52 00B4 C4 0 6 50 1978 ADDL PDTSL popesss om. R2 ; Compute addr of application data 
FC9B° 30 0 $e 107 BSBW FPCSREC REC ; Go process it 
FF61 1 B36 1978 BRW REM_ NEXT. RSP’ 3; Get next pkt from response queue 
b3e8 1080 -DSABL LSB 


16-SEP-1984 01:11: AX/VMS Macro v04-00 Page 26 
= REC_DGREC, PROCESS RECEIVED 0G 18-SEP-19 4 TREES YORIVER. SREIPAINTR.MAR:2 . (92) | 
§ -SBTTL = REC_DGREC, PROCESS RECEIVED DG 


+ 

f the PPD type of the received datagram is not SCS_DG, then the gosegran 

Ss assumed to be a start handshake datagram ang is asyen to the rie 
module, routine CNFSDGREC, to process. Otherwise, REC_DGREC verifies 
the destination connection ID and checks that the connection has at 
least one datagram queued for receive. If the connection has no datagrams 
queued for receive, then the datagram is discarded to the free queue and not 
—— to the SYSAP. Otherwise, the SYSAP's coteeres input address is called. 
pon return from the SYSAP, branch is taken to REM_NEXT_RSP to get the | 
next response. | 


68 1 
| 
st iis 
i 
88 1089 
68 1090 
68 1091 
68 1 35 
gS 8s 
? } 3? Inputs: 
68 1 39 R2 “Addr of message 
? 1338 R4 “Addr of PDT 
36s 1189 Outputs: 
0368 11 ¢ R1 “Length of application data 
rt) 11 RO,R2,R3,R5 -Destroyed 
68 1104 Other registers -Preserved 
oF 183 &- | 
368 1197 ASSUME SYSAPSC_DGREC EQ 0 
tee 119% -ENABL LSB 
0368 1111 REC_DGREC: | 
0368 1118 IF DF PASDEBUG ; Debug facility | 
0368 1114 BSBW TRCSLOGMSG ; Log datagram 
0368 113 ~ENDC ; | 
12 ag 81 0368 Ni? CMPW ace Me bigh) te : Is PPD msg type = SCS? 
O13. O8ee 1119 ee nai : Branch if so 
FC8F° M4 0 of 1120 BSBW CNF SDGREC ; Else pass msg to configuration | 
FF55 1 4] i" 1 BRW REM_NEXT_RSP ; Get next response 
52 0190 C4 0 0374 11 : 10$: ADDL PDTSL_DGHDRSZ(R4) ,R2 ; Compute addr of application data 
FC84" 30 79 «1124 BSBW FPCSREC_DGREC ; Call SCS Layer 
FFGA 1 3 i 5 BRWw REM_NEXT_RSP 3 Get next response | 
1459 .DSABL LSB 


<v 


NTR 


7F 
7F 
7F 
7F 
7F 
7F 
7F 
7F 
7F 
7F 
7F 


7F 

7F 

7F 

7F 

7F 

7F 

7F 

7F 

7F 

37F 

7F 

7F 

10 A2.S 7F 
OA ig 82 
14 Ag Dd 84 
Mis 35 0389 
FC?74* 3 389 
03 «(11 +5 

E 

0463 30 8E 
0391 

0391 

Ts Fi O30, 
0394 

0394 


-001 - REC_IDREC, PROCESS RECEIVED ID 
-S8TTL - REC_IDREC, PROCESS RECEIVED ID 


—Owo 


+ 


If the transaction ID = 0 
module, entry CNFSIDREC. 


10$:  BSBW  INTSINS_DFREEQ1 


DDD DVS BB BS BS BS BE EAI III 


208:  BRW  REM_NEXT_RSP 
.DSABL LSB 
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then this ID packet is either unsolicited 
or a response to the configuration poller and it is given to the CONFIG 


3; Return buffer to free 
; Queue and ignore 


; Get next response 


4: 

> 3 

$ ; Inputs: 

5 ; R2 “Addr of message 

? $ RG “Addr of PDT 

: ; Outputs: 

4; RO-R3,R5 “Destroyed 

é 3 Other registers -Preserved 

8 -ENABL LSB 

9 REC_IDREC: 

§ TSTL PPD$Q_XCT_ID(R2) 3; Check l.o. XCT_ID 

BNEQ 3; Branch if non-zero 

4 TSTL PPD$Q_XCT_ID+4(R2) : Check h.o. XCT_ID 
5 BNEQ 3; Branch if non-zero 
6 BSBW CNFSIDREC 3; Else call config module 
i BRB 208 ; Get next response 
9 

0 
64 


é 


ree 


<v 


Lt 11 
~ REC_LBREC, PROCESS RECEIVED LB DG 


voa~001 18-SEP-1986 01:15:57 EORIVER.SRESPAINTRcRAR;2 "OO CFG 


, 1} § -SBTTL = REC_LBREC, PROCESS RECEIVED LB DG 
4% 1168 ;+ 
" 1 5 ; The loopback datagram is verified and discarded by CNFSLBREC 
34 1171 ; Inputs: 
9% 1158 ; R2 “Addr of LB_dg 
a Wine 3 RG “Addr of PDT 
34 1176 ; Outputs: 
34 1178 : RO-R2 Destroyed 
94 1180: Other registers -Preserved 
ot i}b2 
a 1 § -ENABL LSB 
3 1 5 REC_LBREC: 
FC69" ; 94 11 3 BSBW CNFSLBREC ; Call routine in PACONFIG 
FFF 1 Bao, 1138 BRW REM_NEXT_RSP ; Get next response 
039A 1190 -DSABL LSB 


<v 
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- REC_MSGREC, PROCESS RECEIVED MESSAGE Po} DRIVER. SRCJPAINTR.MAR;2 
. Hi -SBTTL = REC_MSGREC, PROCESS RECEIVED MESSAGE | 
9A 1194 34 
9A 11 3 ; REC MSGREC checks the SCS message type field. If the type code 
9A 1138 : is SCSSC_APPL_MSG, then process ng continues. Otherwise, the egeege | 
9A 1197 ; is an SCS control message and routine SCSSREC_SCSMSG in module PASCSCTL 
9A 1198 ; is called. 
9A | 3 For angi tcetten messages, REC_MSGREC checks that the connection 
9A 1 ; 1D is legal. If not, the message buffer is discarded (returned to 
9A 1 § 3; the free queve) and processing ends. Otherwise, the connection credit 
9A 1 ; bookkee ne is done ond the SYSAP's message input address is called. | 
9A 1204 ; The SYSAP is responsible for disposing of the message buffer. Upon 
I } 5 ; return from the SYSAP, REC_MSGREC branches to REM_NEXT_RSP. 
: § : Inputs: 
9A 1 5 : R2 “Addr of message 
9A 1 + : RL “Addr of PDT 
es ! ! F RS -Addr of UCB 0 
9A 18 : Outputs: 
9A 1215: RO-R3,R5 -Destroyed 
9A 1 1 : Other registers -Preserved 
Sa 1518 | 
0394 : 19 -ENABL LSB 
0394 : 1 REC_MSGREC: 
O39A 1 IF DF PASDEBUG : Debug facility | 
9A 1224 BSBW TRCSLOGMSG ; Log message 
aA ! 5 »ENDC ; | 
52 00B4 C4 0 O39A 1 ; ADDL PDTSL_MSGHDRSZ(R4),R2 ; Compute addr of application data 
FCSE* 30 He 4 8 BSBW FPCSREC_MSGREC ; Call SCS Layer 
FF24 1 aA : , BRW REM_NEXT_RSP 3; Get next response 
Te 1534 -DSABL LSB | 
| 


as 
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: } ; -SBTTL = REC_RDCNT, PORT COUNTERS READ 
AS 1235 ;¢ 
AS 1 § ; REC_RDCNT returns the received buffer of port gquaters tot 
AS 1 ; SYSAP that owns the port counters currently. If the SYSAP seeavied 
r ! 8 : 8 release of the counters, then the counters one flag is cleared. 
! 2 : Inputs: 
A5 1242 ; R2 “Addr of { dg buffer containing counters 
. : rf 3 R4 “Addr of 
r ! o2 : PDTSL_CNTCDORP(R4) =CDRP holding suspended SYSAP context 
A ¢? : Outputs: 
‘ ! a3 : RO-R3,R5 “Destroyed 
eA : 3) ; Other registers -Preserved 
3A 1 4 ; PDTSW_FLAGS(R4) -If PDTSM_CNTRLS is set, then PDTSM_CNTRLS 
O3A5 1254; and PDTSA_CNTBSY are both cleared 
A 882 
‘2 : 3? -ENABL LSB 
$i ! 33 REC_RDCNT: 
FCc58° Hi 8 AS 1261 BSBW FPCSREC_RDCNT : Call SCS layer 
FFIE 1 pane ! 66 BRwW REM_NEXT_RSP :; Go for next response 
O3AB 1264 -DSABL LSB 


a 
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S ] 66 -SBTTL = REC_SETCKT, SET CIRCUIT DONE 
AB 1268 ;+ 
AB 1 63 ; The only SETCKT issued for which a success notification is requested is 
AB 1 9 3 in ERRSCRASHVC which closes a VC on which a software-detected error 
AB 1271 ; has occurred. GEG AoE DEE! calls SCS$CLOSEDVC to continue the failure 
AB 1 if 3; process of notifying all SYSAP’s with connections on the reiting circuit 
AB 1275 ; and possibl cengt ing the pach block if the SYSAP's all DISCONNECT promptly. 
AB 1274 ; ALL other SETCKT's with RETFLAG = TRUE are intended to simply return 
AB 1275 ; the datagram buffer to pool. 
Bie 
m4 ! 4 : Inputs: 
AB 1280 ; R2 “Addr of SETCKT dg 
Q3AB 1281 ; R4 “Addr of PDT 
0 3 } § 3 RS -Addr of UCB 0 
AB 84 : Outputs: 
AB 6 : RO,R1 Destroyed 
tre } ff : Other registers -Preserved 
O3AB 1289 : PBSL_CLSCKT_DG in PB = =Set to address of SETCKT dg 
ts ! + ; to show dg belongs to PB again 
03AB 1292 © 
oeAg 1 38 -ENABL LSB 
O3AB 1294 
BaAe ! 32 REC_SETCKT: 
O3aB 1 of IF DF PASDEBUG ; Debug facility 
3A } 38 7. TRCSLOGMSG ; Log set circuit 
AB 1300 ‘ ; 
E1 O3AB 1301 BBC #PPDSV_DISPOSE,- : If notification not requested, 
16 OB A2 AD 1 ¢ PPD$B SWFLAG(R2), 10$ ; branch around it 
FC4D' 30 +}! 1 BSBW CNFSLRP_PB_MSG : Go lookup PB from message 
53 C BS 1304 MOVZWL #SS$_VCTLOSED,R3 ; Assume aux status will be closed 
+4 1305 ; due to other than host shutdown 
rf B8 1 $ TSTL R1 : Is there a 
1 A 130 BEQL 10$ ; Branch if not 
8 1308 MOVL R2,PB$L_CLSCKT_DG(R1) : Else put SETCKT dg address back in PB 
CO 1309 BSBW © SCS$SETCKT CLSD : Notify all SYSAP’s with connections 
1 ‘? 19 BRW REM_NEXT_RSP ; Go for next response 
3 C8 1 1 108: BSBW INTSDEAL_DG1 ; Return dg buffer to pool 
1 er } 17 BRW REM_NEXT_RSP ; Go for next response 
«Ge he -DSABL LSB 
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16-SEP-1984 AX/VMS Macro V04-00 Pa | 
= REC_SNDDG, PROCESS SENT DATAGRAM 18-8Ep- 138e $1 ate 33 YORIVE IVER. SRCJPAINTR.MAR;2 = 36) 
cc 1317 .SBTTL = REC_SNDDG OCESS SENT DATAGRAM 
c¢ 18 “SBTTL = INTSDISP “cenpDG.DISPATCH A SENT DG 
CC 1320 ; 
CC 1321 ; REC_SNDDG checks the ottag' ts isposal the 4 PPDSM_DISPOSE in 
3 ¢ ; PPDSB_SWFLAG. If the flag shen atagram buffer is | 
i 7 3 dealldcated to nonpaged p * if the flag 3 s set, ners the sent 
CC 1324 ; datagram is passed to the. SYSAP with RO set to indicated that 
3 } 5 ; the datagram is a sent dg rather than a new received dg. 
33 ! ; : Inputs: 
re. 4 § : R2 “Addr of message 
bare } 9 3 R4 “Addr of PDT 
ose ! ¢ ; Outputs: 
8 CC 1334; R1 “Length of application data 
ace 1335 ; RO,R2,R3,R5 -Destroyed 
O3SCC 1336 ; Other registers -Preserved 
get Ha | 
asec ! 39 -ENABL LSB | 
Bare 13¢¢ REC_SNDDG: | 
Baee 1 rk if DF PASDEBUG 3 my facility 
3CC 13te BSBW TRCSLOGMSG ; Log datagram 
OsCe 1348 we: | 
03 10 Bate 1347 BSBB INTSDISP_SENDDG 3 east routine to dispatch 
é atagram 
FEF8 31 Bare 1349 BRW REM_NEXT_RSP ; Go get next response | 
ga) 1 
nf 139¢. INTSDISP_SENDDG: | 
12 A B1 31 1354 CMP PPDSW Aiyee tee? - ; Is PPD sype = $CS? 
0 0304 1355 #PPD$ST_SCS_D : (If not, PPD dg is assumed) 
OE 12 0305 1 2$ BNEQ 208 3 Branch if not since returned 
dD? «135 : dg's always 90 back to pool | 
01 93 D7 «(1 28 BITB #PPDSM_DISPOSE ; Is disposal flag s 
08 Ag D9 135 PPDSB_SWFLAG(RO) ; | 
0 13 DB 1 $9 BEQL 0$ : Branch if clear, dg --> pool 
52 0190 C4 69 DD 1 2 ADDL POTSL penese ears R2 ; Compute addr of appliation data 
Fc1B’ 31 4 } $6 BRW FPCSREC_S 3; Call SCS layer 
00 €1 O3€5 1364 208: BBC #PPDS ; Branch if this SNDDG was supposed | 
04 OF A2 E7? 1365 PPDSB EFLAgsin 25$ ; to be returned to the dg free queue 
04 30 EA 1 6 BSBW INTSDEAL ; Else deallocate dg to pool 
0 4 | of RSB ; Return 
0403 «31 3 ! $° 258: BRW INTSINS_DFREEQ1 ; Insert back on dg free queue and RSB 
Fl 1371 -DSABL LSB 
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-SBTTL = REC_SNDMSG, PROCESS SENT MESSAGE 


+ 

REC_SNDMSG simply calls FPCSDEALLMSG2 to deallocate the sent message. 
The deallocate takes care of flow control and may deallocate the 
buffer to the free queue if the free queue is low, or to pool. 


; Inputs: | 
: R2 “Addr of message | 
; R4 “Addr of PDT 
: R5 “Addr of UCB 0 
: Outputs: 
; RO-R3,R5 “Destroyed 
: Other registers -Preserved 
. 
.ENABL LSB | 
REC_SNDMSG: 
IF DF PASDEBUG ; Debug facility 
BSBW TRCSLOGMSG ; Log message 


ADDL PDTSL_MSGHDRSZ(R4),R2~ ; compute addr of application data 
BSBW FPCSREC_SNDMSG ; Call SCS layer 
BRW REM_NEXT_RSP ; Get next response 


-DSABL LSB 


i Do De De De Be De De Be De RD ee ee Bs Bs Bs es ee es | 
OT DOR Ss se a as a es a ss as a 
kt tk in nt ss ss Ss as ss as ss ss ss ss ss ss ss ss 
5 ak tal tee el 4 

BGOOCOCOCOOOOOOO OO ODOC VIN NININ 
FW 9 ODNA UNE WIN OOD NAME WI OOOO Ww 


GOOQCGCCOCCOCOCOCOCOCSCOOCOCCOOCOOOOOOOOOoOSO I 


WAWAWA AA WNANw 


ee 


~ REC_REQID, ID REQUESTED 


83 
: 
8 


»SBTTL R 
-SBTTL = R 
-SBTTL R 


+ 


Inputs: 


Outputs: 


RO 
Other registers 


-ENABL LSB 


BSBW ss INTS$DEAL_DG1 
BRW REM_NEXT-RSP 


-DSABL LSB 


PIPDFOOMOOOOOOOOOOAOOAOAOOOAOOAOOOOOOOAOAO 
2 as 2 2 2 2 = ss = 2 = os © 1 ss a a 1 1 se 
Pe SS Pt ot oe ot tt ot ot te 
WWW WII ononononononononony ] 2 2 BOO 
SODNAU EWN OVWONOAUE WN OOWDNOAU SWI O DONO 


DT i Bi Di Ba Di Di Di Bi Die De Di Bi Ds es ee Bs Ds Ds Bs Bs es De es Be Be Be BB Be Be Bs Ds 


-00 
TR.MAR;2 


Request ID's sent with RETFLAG = TRUE come here. They are sim 
deallocated to nonpaged pool. 
packet incurred an error or not. 


l 
It is immaterial whether the REQID 


Maintenance reset and start are always sent with RETFLAG = TRUE in 
order that their buffers can be reclaimed for pool. 


“Addr of datagram 
“Addr of PDT 
-Addr of UCB 0 


“Destroyed 
-Preserved 


; Return buffer to pool 
; Get next response 


| 
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4 144 ~SBTTL PROCESSING OF ERROR STATUS IN RESPONSE 

208 jaca :+ 

4 1445 ; Branch to RSP_ERROR on all types of response status error, j.e., 

4 1228 ; PPDSM_ERR not 0. There are several error strategies regen i 

4 1447 ; upon Ehe severity of the error and on whose fault it is most likely 
ri 1008 ; to be: 

4 1450 ; “Crash the VC if this is a new error on this VC deemed to be 

r 103] 3; the fault of the remote system or port. 

4 1488 : “Drain (or process) the response if the VC closure has already been 
rt \e2e ; initiated, e.g., if the status is ‘virtual circuit closed.’ 

rt, 1328 > -Bugcheck if this is an error can only be the fault of the local 
848 12 3 software. 

B38 1289 : Crash (reinit) the port and all VC's on it by simulation of a 

402 1460 ; power fail recovery if this might be a local port failure or if 
et 1083 3 this is a potential transient software failure. 

o¢0 1468 : Dispatch first on the status type field as follows: 

o¢0 1092 : Type value Action 

040 1269 : PPDSC_TYPOK Go to PATH_FAIL. Only one path 

rt 1468 ; failed, the transmission succeeded, 
838 1088 3 so PATH_FAIL has no effect on the VC. 
049 1471 ; PPDSC_TYPVCC Virtual circuit closed due to 

40 1026 3 prownets reported error. In this 
0402 1475 ; case, go to RSP_VC_CLOSED to dispatch 
3 Vere 3 on opcode/ppd type code. 

rt 1028 : PPDSC_TYPINVBN Invalid buffer name. Crash port. 

402 1478; PPDSC_TYPBLV Local buffer length violation. 
338 44 : Crash port. 
949 1481 : PPDSC_TYPACCV Block xfer local access control 

rt 1 ¢ 3 violation. Crash port. 
$40 1484 ; PPDS$C_TYPNP No path left. Go to RSP_NO_PATH 
B40 1? os to dispatch on opcode/ppd type. 

4 14 : ; PPDSC_TYPBMSE Buffer memory eyetea error. 

4 14 8 3 Port closed virtual circuit when it 

4 1489 ; detected this error. Treat exactly 

4 1490 ; Like no path detected our ing block 

"1 133) 3 xfer and dispatch to RSP_CLOSED_VC. 

4 1298 : PPDSC_TYPOTHER Other error defined by the subtype. 

4 1494 ; Go to RSP_SUBTYP_CHK to dispatc 

4 1495 ; on subtype code. 

85 138 

10 1498 ; At RSP_SUBTYP, the subtype error status is picked up and dispatched on 


a 


-001 PROCESSING OF ERROR STATUS IN RESPONSE 10-SEP-1984 DRIVER. SRCJPAINTR.MAR; 2 
6 as follows: 


eayere my 1 mi iets 9 04:11:38 rive Macro yorare Page 3) 


Subtype code Action 


PPDSC_STPSV Pkt size violation. Go to RSP_PKTSIZ_VIO 
to dispatch on opcode and ppd fype 
since some opcodes represent errors 
generatied at the remote side and some | 
represent local errors. 


PPDSC_STURP Unrecognized packet. These are 
poceecs with invalid information 


Branch back to REM_NEXT_RSP 
unless port is crashed Tn which 
case return is taken to the fork 
dispatcher. 


BRR RRR RRR RRP R RRR RRR RRR PRR RPP R RPP RRP REE 


Sete Se Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge 


a PS a Hs 8 a a ss a tk ts a a ss i a te st a 
a 


1 | 
1 received from remote systems. Go 
} to RESP_UNREC_PKT to log and discard. | 
3 PPDSC_STINVDP Invalid destination port. Crash port. | 
0 3] PPDSC_STURC Unrecognized local command. Crash port. 
51 PPD$C_STABO Aborted command. This status is returned | 
040 51 upon an orderly (host requested) disable 
8 8 5 of the port. ince this disable is currently 
5 never requested by PADRIVER, this status is 
0 5 : illegal and causes a port crash. | 
0 8 : Inputs: 
0 5 R2 -Addr of response pkt 
5 ; R4 -PDT addr 
8 : Outputs: 
0 0 5 RG -Preserved 
0 5 
0 5 
0 5 
0 5 
$8 
040 33 


NAME WN 9 OODNAUES WN $9 ODNAUE WN "OOONOUS UT 


| H 12 
PAINTR 
v04-001 
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-SBTTL = MACROS TO DEFINE ACTION TABLE 


:¢+ 
Each status requirin epeeeerees type specific action has a 
table of opcodes, eee and an action routine to call for 
Serr Seeene-eee type com ination. The format of the table is as | 
BYTE Pyceee 
YT Link to next opcode, 0 if no more 
«WORD ppd type, -1 if any ppd type ok 
«WORD offset to action routine 


-BYTE opcode 


4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 


1 
1 
1 : 
1 : 
1 ; 
1 : 
1 3 
1 3 
1 3 
1 $ 
1 3 
1 3 
1 3 
1 3 
1 3 
8 1 ° eee 
0 : ; 
02 1 : is allowed. There may be several possible ppd types for a given 
02 1 3 opcode, each specifying a different action routine, but the List 
02 1 3; of ppd sypes should end with ppd type of OTHER to handle all other 
rt ! ; values of ppd type. 
rt : 3; The following macros define entries in the action tables: 
0402 1 ; OPCODE opcode, {rtn],Clast) ; Defines the opcode byte and 
402 1 $ : link to next opcode. Link 
402 1 : ; is -1 if last not wg {Mees 
0402 1 3 : If crtn is specified, then 
0402 1569 : : PPDTYPE ANY. and ACTION RTN 
rt ; ; ; are also invoked. 
0402 1 3; PPDTYPE typc 3; Defines the ppd type field, | 
Oe ! 3 ; 1 if type = ANY or OTHER. | 
402 1 3; ACTION rtn : Defines the offset to the 
B48 1 : : action routine relative to 
Be 1 3 the ppd type code. 
402 1 3° 
205 | 
04 ! 3; Define OPCODE opcode,(rtn],Clast] macro: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


| 
} 
| 
| 
; Note that for each opcode-ppd type ate! Chg one action routine | 


-MACRO OPCODE OPC,RTN,LAST 
,NOSHOW 
"BYTE PPDSC_ ‘OPC’ 
NE S$SSLAST_ OPC 
-ESSSLAST {oe e rEQASE NEXTOPC 


$35 SS$S=SSSLAST OPC 
38 +EOASB SNEXTOPC 


ee stars of this entry 


if theve was a previous 
opcode onery uf? 32 peck and 
fill in ‘ 

and aS. y*- to his entry 


-BYTE 0 : Set fwd Link to no more for now 


ah ah hb hh hh cla cab cheb ch edicb clc dich lab heb alacant edb acct Daveth Daethtech eect Pedi aeth a ed bb db dh ahh db dh bh db hb ehh dh db eth odio odio etic edlcbe dh edich dich edie dle cd dha “dh “dich “dile =dadh adh ahh el 


WOOO OO 000909 09090909 0909 09 SI NINN SSN SND PPA DAA AAA III ES EE EE 


PAL N29 ONO NEW 9 OO NAME WIN OOO NIA UNE WIN OOO NAME WP 0 OD NOAUE Wt O 
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SSSLAST_OPC=$$$ ; Redefine Last opcode to this 
ff NB LAST ; If this is last opcode in 
$ SLAST_OPC= ; in action table, then reset 
EN ; last opcode to 6 


RTN ; If action routine specified, 
the set ppd type to any ok 
and fill in action routine offset 


-ENDM OPCODE 
SSSLAST_OPC = 0 


, el tal tak tal tad te ed ee eee 


00000000 20 Initialize addr of Last opcode entry 


20 

' ; Define macro to specify PPD type: 

040 ? 

8 -MACRO PPDTYP TYPC 

040 »NOSHOW 

40 $$$-. ; Save start of this entry 
40 IF IDN TYPC,ANY 3; If any ppd type ok 

4 -WORD -1 : set ppd type to -1 

4 “IF DN TYPC,OTHER : If any ppd type ok 

‘ RD -1 : set ppd type to -1 

4 : DIF TYPC,ANY : If neither any nor 

4 olf DIF TYPC,OTHER ; other is specified, ther 
rs PPDSC_‘TYPC' 3; set specified ppd type code 


-ENDM = PPDTYP 


$9344 939393939395 


PRR RRR EERE RRR RRR EERE 


; Define ACTION macro to define offset to action routine to call: 


WWW AWA AAA POPROPOPOMOPONUIN 2 — = BQO OOOO OOOOO0O 


WN =O ODNAUES WN OS OD NAUE WIN 9 OD NA UNE WWI 0 OO NAME WWI OO OD NOAU EWN OOOnN 
2 
= 
o 
z 
J 
>. 


DPD DP DED AAA AAA AAA A AAA A AAA AAA AA AAO AAA AAAAOO OOM 


-MACRO ACTION RIN 


-NOSHOW 
-WORD RITN-$$$ 3; Offset = routine addr - 
ame ; ppd type code addr 


-ENDM ACTION 


Define symbolic offsets to the opcode entry in the error-opcode 
action table (EOA) and to the ppd action entry (PPA): 


ee a de a ot a a = 4 td = 4 4 2 a 8 9 a — 5s 2 a ss a 8 


SOOOCOCOCOOCOCOOOCOOOOOOOO OOO OOOO OOoOoOoOO 


POARAOASAOAAOAAO 


WU & & 


<v 


- MACROS TO DEFINE ACTION TABLE 


1 
1 
1 
1 
1 
16 
1 


§ 
9 PPA 


80 


OA$SB_OPC 

OASB_NEXTOPC 
EOASW_PPDTYP 
A tee 48 tha 


PPASC™ “LENGTH 


16-SE 1:1 AX/VMS Macro v04-00 
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= 3 Opc 
9 : tinket to next opcode, 0 if none 
=2 st ppd type code for this opcode 


9 PPD type code 
= ; Action routine offset 
=4 ; Length of PPD action entry 


me 3 


<v 
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1:15:37 eS) 
SBTTL - OPCODE-DEPENDENT ERROR ACTION TABLE | 


—_ 


: Define the opcode/ppd type specifie handling for the three 

: kinds of error that require opcode examination: 

ACT_NO_PATH: ; No path status 
OPCODE SNDDG 


PPDTYP SCS_DG 
ACTION RSP_CRASH_VC 


PPDTYP OTHER 
ACTION RSP_IGNORE_ERR 


OPCODE SNDMSG 


PPDTYP SCS_MSG 
ACTI P_CLOSED_VC 


ON RS 
PPDTYP CACHECLR 
ACTION RSP_CACHECLR 


PPDTYP OTHER 
ACTION RSP_CRASH_NPUPD 


OPCODE SNDDAT, RTN=RSP_CLOSED_VvC 
OPCODE RETDAT, RTN=RSP_CLOSED_VvC 
OPCODE RETCNF, RTN=RSP_CLOSED_VvC | 
OPCODE REQDAT, RTN=RSP_CLOSED_VC | 
OPCODE SNDLB, RTN=RSP_DISCARD_ERR | 
| 
| 
| 
| 
| 


PRR RR ERR RRR PRR RPP 


SOoOoOoOoooooo 


Pp 
NR 
PC 
NR 
PO 


$0 OOO 00000069 09 09 00 0909 09 INI NII NIN NNN AAO AOAOAO 


NOUS WN OS OO NAU EWN 0 OO NOUS WIN O ODNAUES UPD 


OOoooooooo 
oon 


® 


OPCODE REQID, RTN=RSP_PATH_FAIL 

OPCODE SNDRST, RTN=RSP_CRASH_VC 

OPCODE SNDSTRT, RTN=RSP_CRASH_VC,- 
LAST=TRUE 


WIN WIWIWIDOPIDNINININ 2 2 | SOOO OCOOCOCOCOO 
FMM WOMMAAAAOOY SWOPALSMUMOMMOM POO 


COOoooo 


ACT_PKTSAZ_VIO: | 
OPCODE SNDDG, RTN=RSP_CRASH_PSV 
OPCODE SNDMSG, RTN=RSP_CRASH_PSV 
OPCODE SNDDAT, RTN=RSP_CRASH_PSV 
OPCODE DATREC, RTN=RSP_CRASH_PSV 
OPCODE SNDLB, RTN=RSP_CRASH_PSV 


i a a ee ee ee ee a ee ee a a a a dd dd 
NSS SSNS NAA AAAAAAAAAAAAA AA AA AAA AAPA AAA AOSOSAOAS 


2 tt St St  SQDOOOOOOOOOND 
DONOUNE WO OONOUS WN —O0 


<v 
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= OPCODE-DEPENDENT ERROR ACTION TABLE 10-SEP- DRIVER SRE PAI NTR.MAR;2 (25) 
+68 7) | 
ri 1 OPCODE LBREC, RTN=RSP_CRASH_PSV 
cee 17 OPCODE MSGREC, RTN=RSP_CRASH_VC 
otk 17 ¢ OPCODE RETDAT, RTN=RSP_CRASH_VC 
rhe Mf § OPCODE RETCNF, RTN=RSP_CRASH_VC 
ri \? 3 OPCODE DGREC, LAST=TRUE 
4 1730 PPDTYP SCS_DG 
rt 2 i 1 ACTION RSP_CRASH_VC 
4 : 17 § PPDTYP OTHER 
7 1734 ACTION RSP_IGNORE_ERR 
48A 1735 
48A 17 $ 
48A 17 
; . HA ACT_VC_CLOSED: ; VC already closed status 

Oc8A 1746 OPCODE SNDMSG 

048C 1741 

rt +3 te PPDTYP SCS_MSG 

4 174 ACTION RSP_DRAIN_ERR 

490 1744 

490 1745 PPDTYP CACHECLR 

49 1oe8 ACTION RSP_CACHECLR 

0494 174 

0494 1748 PPDTYP OTHER 

0698 178) ACTION RSP_CRASH_VCUPD 

438 Ife) OPCODE SNDDAT, RTN=RSP_DRAIN_ERR 
ace 1738 OPCODE RETDAT, RTN=RSP_DRAIN_ERR 
ne Hay OPCODE RETCNF, RTN=RSP_DRAIN_ERR 
O4AA 1789 OPCODE REQDAT, RTN=RSP_DRAIN_ERR,- 
Q4AA 1758 LAST=TROE 
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if -SBTTL = RSP_ERROR, DISPATCH ON ERROR 
1 -SBTTL = TYPE 
1765 ;+ 
1764 ; RSP_ERROR is branched to when a response packet with any sort 
1765 ; of @rror is dequeued. RSP_ERROR dispatches on the error type and 
1708 ; subtype fields in the status. 
1768 7 
178 -ENABL LSB 
1? ; RSP_ERROR: 
FB4D' 30 17 § BSBW CNFSLKP_PB_MSG ; Get the path block in R1 
1774 : Ignore not found error 
1775 ; since this will be checked 
17 § ; _later if needed 
oS =F 17 EXTZV #PPDSV_STSTYP,- ; Extract type code 
°3 17 3 #PPDSS_STSTYP,= : from response 
50 ODA 7 ; PPD$B_STATUS(R2) ,RO : 
Vy 1 SOISPATCH RO, TYPE=B,- ; Dispatch on type code: 
17 j <PPDSC_TYPOK, RSP_PATH_FAIL>,- : A path failed 
1784 <PPDSC-TYPVCC, RSPIVC_CCOSED>.- ; VC closed 
1785 <PPD$C-TYPINVON,RSP—~CRASH_INVBN>,-: Invalid buffer name 
17 $ <PPDSC_TYPBLV, RSP_CRASH_BLV>.- ; Buffer length violation 
17 <PPDSC_TYPACCV, RSP_CRASH_ACCV>,=- ; Access control violation 
1788 <PPDSC_TYPNP _NO_PATH>,=- ; No path left 
9 A 3 <PPD$C~TYPBMSE RSP_VC_CLOSED>,- ; Buffer memory system error 
; 1790 <PPDSC_TYPOTHER .RSP_SUBTYP_CHK> ,~ ; Other error 
4CD ire 
rth 1a? RSP_SUBTYP_CHK: 
01 #E€F O4CD 1795 EXTZV #PPDSV_STSST,- ; Extract subtype 
04 CF 1796 #PPD$S_STSST,- : from response status 
50 OD A2 4D 129 PPD$B_STATUS(R2) ,RO ; 
rt 1798 ahah RO, TYPE=B,- ; Dispatch on subtype: 
0403 1801 <PPDSC_STPSV, RSP_PKTSIZ_VIO>.- ; Pkt size violation, 
403 1 ; <PPD$C_STURP RSP-UNREC_PKT>,- ; Unrecognized rec'd pkt 
403 1 <PPDSC"STINVDP, RSP~CRASH-INVDP>,-; Invalid destination port 
4D5 1804 <PPDSC_STURC, RSP_CRASH_URC>,- ; Unrecognized command 
4D5 1805 <PPDSC_STABO, RSP_CRASH_ABO>,- ; Aborted command 
4D3 1 06 <PPDS$C_OSEQ, RSP-OSEQ_ERR>,- ; Response had seq # mismatch 
3 6 <PPDSC“VCDCL. RSP-VCDCC_ERR>.- ; Seq msg rec'd on closed VCD 
os % 09 
rt! ' 19 UNIMP_STS_ERR: 
4E5 1 \§ SDEBUGCHECK #ERRSV_DEB_UNSTS : Optional bugcheck 
0124 «31 red ' 1? BRW RSP_CRASH_PORT ; Go init port crash 
FB 1815 -DSABL LSB 


<wv 
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1817 -SBTTL = RSP_PATH_FAIL, PROCESS SINGLE PATH 
1 -SBTTL = FAILURE 


— 


RSP_PATH_FAIL records path failures in the configuration 

database logs the error if necessary - If the received response 

was REQIO, then there is a possibility that there are no 

pee paths left. if no good paths remain, branch to RSP_CRASH_VC 

o crash the VC. If there is still a good path, return the response 
ne to the nsq/dg free queue if that is what the response bit in the 
ocally executed command directed the port to do. l.e., if the 
response bit is 0, then, except for the path failure, the port 

would have put the command buffer on the free queue and this is 

what is reflected in the connection credit soenneee tne: 

Continue processing the response since it is ok except for the path failure. 


An internal flag is set up on the stack during this routine. Normally, it 
is clear. It is set under the following conditions: 


MPWnN—O 


Bete Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se Se Se Ge Se Ge Se Se Ge Se Se Se Ge Ge Se Se Ge See Se Se Se Se 
+ 


PPE EES 


ts 


This path is bad AND the path was previously good AND 


FB 
FBS 
FBO 
FBO 
FBS 
FB 1 
FB 1 
FB 1 
FB 1 
FBO 
FB 1 
FB 1 8 
FB 1 
FB 1830 
FB 1831 
FB 1 ¢ 
FB 1 
FB 1834 
re 
rth : i the remaining path is good so the vc remains open. 
O4FB 1839 ; When path status is all updated in the path block, check the internal 
gore 1840 ; flag. If clear, continue handling the response as described in the 
4FB 1841 ; first paragraph. If the flag is set, and the response is a REQID, 
4FB 1 6 then use the response packet to send another REQID on the other path 
4FB 184 to test if it has also gone bad. The purpose of sending the extra 
4FB 1844 ; REQID is to find out as quickly as possible if the VC is not working 
gore ; mF rather than waiting for the poller to do it. 
Bure TBtE Inout: 
FB 1849 R1 -PB addr 
4FB 1850 R2 “Response addr 
rth : 33 RS -PDT addr 
puts: 
HIRE; ove 
4FB 1855 RO,R1 “Destroyed 
ther registers -Preserve 
FB 185 Oth i P d 
fa 1888 
4 ! 3g -ENABL LSB 
FB et RSP_PATH_FAIL: 
51 if FB 1 8 TSTL R1 : Check associated path block 
4c 1 FD 1864 BEQL 30 : Branch if didn't get it 
43 04 FF 1865 CLRL -(SP) 3; Set flag on stack 
5 D4 Oe $6 CLRL RO ; Assume path 0 bad 
93 1 B1TB #PPDSM_POSTS,- 3; Any error code set in 
OD A 1 8 PPD$B_STATUS(R2) : _in path 0 status? 
9 12 1 $ BNEQ 10$ :; Branch if net 
D6 9 ' 4 INCL :; Else assume it's path 1 bad 
50 29 A140 9 1872 10$: MOVAB PBS$B_PO_STS(R1)CRO],RO ; Get addr of path status byte 
05 60 3 1 rg BLBC Chops DOS ; Branch if fh ous status. bad 


PAINTR 


v04-001 - FAILURE 
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PAI! 


FAEA’ 30 13° 1874 BSBW ELOGSPTH_ST_CHG ; Log failure of provreusty good path. 
6— 06 16 1875 INCL (SP) 3; Set flag to maybe send a REQID over 
2} : 6 ; the remaining good path 
60 01 A 18 #1 8 208: BICB #PBSM_CUR_PS, (RO) ; Set current path status bad 
9 Al 9 18 187 BISB3 PB$B_P _STS(R1) ,= ; OR both path statuses 
50 A Al if 1880 PB$B_P1_STS(R1),RO0 ; _together 
5 50 33 5 1881 BLBS RO, OTSPOSE_RSP ; Branch if one path still ok 
BE p 3 4 1 : TSTL p)+ ; Remove flag from stack 
01 1 2 8 : o7 BRW RSP_CRASH_VC 3; Else crash VC 
: 2 ! be DISPOSE_RSP: 
8E b 529 18 5 TSTL (SP)+ ; Remove flag from stack 
| eS 52B 1888 BEQL 30$ : Branch if flag clear | 
OE Ag 91 052D 1889 CMPB PPD$B_OPC(R2),= : Else was this a REQID that | 
0 530 1890 #PPDST_REQID : discovered the bad path? 
8 12 0531 1891 BNEQ 0 : Branch if not 
50 03) «690 «(0533 «1 36 MOVB #<<PPDSC_PSPO @ PPDSV_PS>!PPD$M_RSP>,RO 
0536 189 ; Assume we are going to turn 
536 1894 3; REQID around on path A, the 
536 ©1895 3 reneining good path 
536 1896 TSTB PBS$B_PO_STS(R1) : Path A still good? 
0539 1897 BNEQ $ ; Branch if so 
0538 1898 MOVB #<<PPDSC_PSP1 @ PPDS$V_PS>!PPDSM_RSP>,RO | 
33 344 ; Else Set up to poll path B 
$8 1901 258: MOVB RO,PPD$B_FLAGS(R2) : Set flags in REQID pkt 
054 1308 CLRB PPD$B_STATUS(R2) ; Clear status in REQID pkt 
0545 190 BSBW INTSINS_COMQL ; Requeue REQID to port 
beee 1308 BRW REM_NEXT_RSP ; Go process next response | 
p2e8 1906 30$: BBS #PPDSV_RSP,- : If response bit is set (response 
54D 1907 PPD$B_FLAGS(R2) ,40$ : requested), branch to process pkt 
0550 1908 BSBW INTSINS_FREEQ ; Else insert pkt on appropriate 
b22 1909 : free queue 
Beez 1319 BRW REM_NEXT_RSP ; and go for next response 
b228 1316 40$: BRW OPCODE_DISP ; Go process response 
$339 1914 -DSABL LSB 
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.SBTTL - RSP_UNREC_PKT, PROCESS RECEIPT OF 
.SBTTL = UNRECOGNIZED PKT | 


+ 


RSP_UNREC_PKT Logs the unrecognized peeses disables datagram receipt 
from the remote port, and discards the packet to the datagdram free 
queue. Unrecognized packets with opcode of send maintenance reset/start 
are normal (the disk class driver sends them) and no action is taken 


+ on these. 

: Inputs: 

; RI -PB addr 

3 R2 “Response addr 

3 RG -PDT addr 

: Outputs: 

: RO-R3 “Destroyed 

3 Other registers -Preserved 
-ENABL LSB 


RSP_UNREC_PKT: 
MOVZBL_PPD$B_OPC(R2) RO 
PATCH R 


$DIS - 
<<PPD$C_SNORST,20$>,- reset or 
<PPD$C~SNDSTRT, 20$>> start go return with no action 


SDEBUGCHECK #ERRSV_DEB_URP ; Optional bugcheck 
PUSHL 3; Save bad command addr 


50 OE A2~ 9A ; Extract the opcode 


; If the opcode is 


OCOD OD GD OD. GD OD OD DE DEPTS 
OCO NAME AN @§ O OO NAUSEA O OO NOAU EWI SO OONOAU SW OOOnNG 


BSS USSSoMo DHS Ue NID DS ABAACCS COGDOOOOOOOOOOOOODOOODOOOOOS 
POAAAOMNMUMUUIUIUIUIULE BE EB BE EB BR WIWWWWWWIIonononononononong | = 2 


aa kk lk ll ll tlt lich ied ed taeda Deed Decl edict eda edith edith edith cdi cdi edith edith ch cla be cde edd ed ed edd edad edd seddh “edad Scdidh Seddh “edich “adda vedic velit “adic Sells “ell 
a a dd dd dd 
WODOOODOOOVOOOOOVOOOVOOOOOOVOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 


“ 

~ 

J 

.—J 
SOOSOOOSOOCOOSSOSSOOQCOOCOCOOOOOCOCOCSCSOOCOOOCOOOOCOOOOOOOOOOOOOOOCOOOoO 


S 
ASSUME PAERSK_ES_UPKT EQ 0 
50 3 CLRL ; Log unrecognized packet received 
FA81" 30 BSBW ELOGSPACKET1 3; error. 
51 oe TSTL R1 ; Have we a VC open to this node? 
051 BEQL 5$ : Branch if not 
FA7A’ 30 SBW ERRSCRASHVC ; Else crash the VC 
28 Oi RB 10$ 3; Dispose of dg 
O2BF 38 5$: BSBW INTSALLOC_PPDDG ; Allocate a buffer to do SETCKT 
22 50 3 LBC : Branch if none 
50 O¢ A2 9A MOVZBL PPOSB PORT (R3) «RO : Tell port to mark 
0c A2 50 00190000 8F C9 0 ISL #<PPDSV_RSPa24>!- 
1 <PPDSC_SETCKT@16>,R0,- ; VC closed and to 
§ PPD$B_PORT(R2) 
10 A2 1000 8F C MOVZWL #PPDSA_DQI,PPDSW_MASK(R2) ; inhibit datagram reception 
14 A2_ 100 ef C A 4 MOVZWL #PPDSM DQI,PPDSW_M vas (Re : from this remote port 
00 0154 c4 50 &8 A 65 BBSS RO, PDTSB_DGIMAP(R4J,8 | 
FABF A 66 8$: BSBW Ss GH 
32 8E98 B 68 10S: POPL R2 ; Retreive bad command addr 
025€ : $ BSBW INTSINS_DFREEQ1 ; Return datagram entry to free queue 
FD10—s #31 : 4 208: BRW REM_NEXT_RSP : Go for next response 


v04-001 


UNRECOGNIZED PKT 
0589 1973 


-DSABL LSB 


.°] 
PA 


Vv 
I 


04-00 
NTR.MAR;2 


Page 


4 
(28) 


] 


PAINTR 16-SEP-1984 01:11: AX/VMS Macro V04-00 Page 
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»SBTTL = RSP_NO_PATH, PROCESS NO PATH 

-SBTTL = TATUS 

-SBTTL = RSP_PKTSIZ_V1IO, PROCESS PACKET SIZE 

-SBTTL = VIOLATION STATUS 

-SBTTL = RSP_VC_CLOSED, PROCESS VC CLOSED 

-SBTTL = STATUS 


+ 


These three error status types require examination of the epcode and, 
in some cases, the PPD type code to determine proper error handling. 


Each of the three entries pick up the address of the appropriate error action 
table. further process ing consists fo searching the opcodes in the action 
table for a match. Failure to find a match results in a port crash since this 
may be an error in software resesetag or a garbaged response. When the 
correct opcode is located, then the PPD type is matched if required, and 

the specified action routine is branched to. 


Register usage throughout is as follows: 


BDWWWDWVIVIVOWVIOOVVOOWVWOVOWVWOVOOWWOWVOVTOOWWOWDWIOIOw 
GDOOOGOOSOSOSOOCOOOOOOVOOOOOOOOOOOOOOOOOOO 
SOOGDOGDOSOOS 00000 0000000000009 0000 09 690909 SIN 

Sete Se Ge Se Se Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se Ge Ge Se Se Gee Se Ge Se 

z 
= 


PUFUPU LV LUPU SUSU SULIT SUSU SUSU TITS ITTI TSI 


9 ] 5 
i 
3 1395 
9 1980 
9 ! 1 
5 1388 
9 1984 
Re 
6 9 1 $ 
0589 1988 
0589 1989 
8 9 1990 
9 1991 
0589 1 § 
0389 1994 
0589 1995 BR “Response pkt addr 
0589 1 $ R -Addr of current PPD entry in action table 
0589 1 -PDT addr 
8 4 } R5 “Addr of current opcode entry in action table 
8 4 ? Inputs 
0589 ¢ R1 -PB addr 
0589 R2 “Response pkt addr 
8 4 : RG -PDT addr 
8 4 : Outputs: 
8 9 RO- “Destroyed 
0 > Bt Other registers -Preserved 
0589 2011 Branch to REM_NEXT_RSP 
0369 5018 
44 bie -ENABL LSB 
44 318 RSP_NO_PATH: 
50 FE4S CF oF B9 O18 MOVAL ACT_NO_PATH,RO ; Get no path action table 
ee 3 1? BRB 10$ ; Join common code 
C 0 1 RSP_PKTSIZ_VIO: 
50 FEB86 CF DE OSC 0 ; MOVAL ACT_PKTSIZ_V10,R0 ; Get pkt size violation act table 
05 11 4s 0 : BRB 10$ ; Join common code 
44 6 § RSP_VC_CLOSED: 
50 FEBF CF ODE a7 0 8 MOVAL ACT_VC_CLOSED,RO ; Get VC closed action table 
55 50 00 ate 9 10$: MOVL RO,RS 3; Get action table addr 


ees 16-SEP-1984 01:11:55 YAK/VMS Macro v04-00 Page 48 


v04-001 - STATUS 984 01:1 DRIVER. SR CIP AINTR.MAR;2 ore 
} § CMP_OPCODE 
65 91 CF CMPB cOASE OPE ERS). = 3; Does this opcode ent? match 
OE A2 D 5 anh OPC (R2) $ opcode | in Ds ae 
H3 12 D § BNEQ OPCODE 3 Branch, 
53 O2A DE 8 MOVAL POASY. PPDTYP(RS) ,R3 : Init R3 to ty PPD type entry 
202 33 CHK_ANY_PPD 
FFFF 8F 63 61 509 41 CMPW (R3) ,#-1 3; Any PPD type . valid? 
oc 13 +4 tg BEQL CALL_ACTION ; Branch if y 
af te CMP_PPD: 3; Else check for right type 
12 A2 $3 81 5E rf CMPW (R3) ,PPDSW_MTYPE(R2) b ae PPD a 
13° O5E4 4 BEQL CALL_ACTION ; Branch if s 
53 oF 5E6 48 MOVAL PPASe LENSTHERS) . R3 3; Else step to next PPD type 
1 SEA 49 BRB CHK_ANY_PPD 3 and check it 
SEC 50 
ee b2 CALL_ACTION: 
50 02 A3 35 Bae e $38 CVTWL PPASW_RTN(R3),RO ; Get offset to routine 
6340 1 SF 054 JMP (R3) CROJ ; Call routine to process and 
tH B22 3 and dispose of response pkt 
03 b2f NXT_OPCODE : 
50 0O1A5 98 et 059 CVTBL EOASB_NEXTOPC(R5),RO ; Get Link to next opcode 
03 12 O5SF? 2060 BNEQ : Branch if got one 
0023—=—s 31 pare 30) BRW RSP_CRASH_PORT ; Go init port crash 
> ae Me Me We 20$: ADDL RO,RS ; Else step to next opcode entry 
CE 11 OSFF 2064 BRB CMP_OPCODE ; Go see if it's right 
0601 2065 ; 
0601 066 -DSABL LSB 


= ACTION ROUTINES 


16-SEP-1984 1:1) :38 AX/VMS Ma 
10-SEP-1984 01:1 

SBTTL = ACTION ROUTINES 

SBTTL = RSP_CACHECLR 


r 
DRIVER. SRCIJPAINTR.MAR; 2 


RSP_CACHECLR calls the appropriate routine in PASCSCTL to handle receipt 
of a cache clear message - a PPD sequenced message with PPDSW_MTYPE containing 
; PPDSC_CACHECLR. This is a sequenced message sent out to a remote station 
; assoc Tated with a Gioses (crashed) virtual circuit. It is sent after all 
th the closed VC have been DISCONNECTed and therefore 
; signals that the port cache no longer holds * commands associated 
; with that VC. The CACHECLR msg should always be received with fatal 
; error status since it is sent over a closed VC, but this is not 


; verified. 


6909 0909808 SII NI SIN NNO Oo 


10$: BSBW SCSSCACHECLR 


0 
0 
0 


ps het te 
NM—OOONAOUE WN "OV ONAUS W000 MEW OOONOUES WTO 00 


PARA AAAAAAAAAAAAAAAAAAAAAAAAAAA AA AAPA AAAAAAO 
RARAOOO COON 9 9) 88) 8) 8 8 


em em ee wm nw wm mew www ln ln lolololololololololololololololelolo) 
a at ot 4 BQOOOOOCOOCOOCOOCOCSCOOSCOSO 


—— ~QOOGOCOCOCOCOOVOOOOOOOONO 


If the earlier lookup of the path block failed, then SCSSCACHECLR 
ends up crashing the port. 


Inputs: 
R1 “Addr of PB (0 if none) 
R2 “Addr of CACHECLR marker msg 
R4 “Addr of PDT 
Outputs: 
RO-R3 ; “Destroyed 
Other registers -Preserved 
-ENABL LSB 
RSP_CACHECLR: 
TSTL R1 : Is there a PB? 
BEQL 10$ :; Branch if not 
MOVL R2,PBSL_CLSCKT_DG(R1) ; Else restore addr of cache 
; clear pkt to PB 


; Perform remaining circuit 
3; cleanup (initiates a port 
: crash if no PB which will 
; _take care of dangling SETCKT) 
BRW REM_NEXT_RSP ; Get next response 


-DSABL LSB 


cro V04-00 Pa 9 
9 90) 
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= RSP_CLOSED_VC 1 mie Yi 1:15: 3 DRIVER. SRE CP AINTR.MAR;2 . 34) 

$ : 10 -SBTTL = RSP_CLOSED_VC 

60F 118 3+ 

60F 2117 ; RSP_CLOSED_VC soe errors that resulted in the pert. qlecing the 

60F 18 : virfual cifcuit. It calls scssv ECLOSED to notify 

6OF 2119 ; owning connections on Cents V a then branches to RSP_ DRAIN. ERR 

: ! Y ; to dispose of the response a ning error status. 

60F 2122 : Inputs 

one 1 : 3 

60F 124 ; R1 -PB addr 

60F 125 3: R2 “Response addr 

60F 1 § : RG -PDT addr 

60F | : 

60F 21 3 ; Outputs: 

60F 21 : 

60F 21350; RO-R3 “Destroyed 
bebe 131 ¥ Other registers -Preserved 

60F 21 § 3* 
O60F 21 
eH 134 -ENABL LSB 
60F 135 RSP_ CLOSED VC: 
O60F 21 § MOUZBL #PAERSK_ES PCVC, RO : Log port hardware has closed 
Foe 30 Bolg 13 Bw ELOGSPACKET1 ; the VC error. 
53 21A4 BF C 061 138 MOVZWiL #SS$_VCCLOSED,R3 3 Assume aux status will be closed 
061A 2139 3; due to other than host shutdown 
FOES" 30 O61A 2140 BSBW ScsSvccLosep ; Call VC closed handler 
18 11 061D 2141 BRB RSP_DRAIN_ERR ; Go dispose of response 

O61F 142 -DSABL LSB” 


- RSP 


61F 2144 -SBTTL = RSP_CRASH_PORT 
61F 2145 
61F 198 3+ 
61F 2147 ; RSP_CRASH_PORT crashes the port by calling ERRSCRASH_PORT and 
oir 138 ; then draining the response currently held. 
oi 13) 3 Inputs: 
61F 21 ¢ s R1 -PB addr (0 if none) 
61F 2153; R2 “Response addr 
O61F 2154 ; RG -PDT addr 
61F 2155 ; 
61F 21 § 3; Outputs: 
61F iF 3 
61F 2158; RO-R2 -Destroyed 
61F 2159 ; 
61F 2160 ; Other registers -Preserved 
61F 2161 ;- 
O61F 196 
O61F 216 -ENABL LSB 
O61F 2164 
O61F 2165 INTSCRASH_PORT:: 
O61F 2166 RSP_CRASH_PORT: 
O61F 2167 
50 8002 8F 32 O61F 2168 CVTWL «= #KPAERSK_ES_CSHP!- 
8 4 2169 *“x8000> ; Log we are crashing the 
F9D9* 30 0624 2170 BSBW ELOGSPACKET1 ; port error. 
F9D6" 30 0627 2171 BSBW ERRSCRASH_PORT ; Force port to crash 
0B 11 gosh \7¢ BR RSP_DRAIN_ERR ; Go dispose of response 
O63¢ 174 -DSABL LSB 
062C 2175 


16-SEP-1984 01:11: AX/VMS Macro Vv04-00 P 1 
CRASH_PORT 18-36-1882 1345533 DRIVER. SRCIJPAINTR.MAR;2 eg (32) 


PA 
vC 


J 13 , 
vc 18-3 
-SBTTL = 


PAINTR 
vOu~001 - RSP_CRASH 


+ 


: Inputs: 


DDw 
en 


Outputs: 


RO-R2 
Other registers 


PARAL AAAAAAAAAASO 


Oo 


ttt 


NNW FAOAAOAAIAAAAOAAADAAAAAOOAAAOAO 
SDOOOOO0O00000 000 Occ ccecococo co aDce I~ 


MEWN $$ O OONAOUS WN OC OONOUES WOON 


PONRONONINOA) — — tt ot 


-ENABL LSB 
06 RSP_CRASH_VC: 
50 03 06 MOVZBL #PAERSK_ES_SCVC, RO 
FOCE® 30 6 BSBW - ELOGSPACKET1 
F9CB' 30 06 BSBW = ERRSCRASHVC 
00 063 BRB RSP_DRAIN_ERR 
063 .DSABL LSB 


p=1986 01:15: 


RSP_CRASH_ 


-PB addr ( 
“Response 
-PDT addr 


“Destroyed 
-Preserved 


; RSP_ CRASH _VC calls ERRSCRASHVC to initialize VC closure on an open VC 
; (if"there is one) and then branches to RSP ER 
; response. Return is taken from RSP_DRAIN 


AX/VMS o V04-00 Page 
33 YORIVER. © R.S SPAINTR.MAR:2 ’ & 
vc | 
N ERR DRAIN_ERR to dispose of the error 
0 if none) 
addr 


Log : we are crashing the VC 
erro 

initiate crash (noop i no VC) 
Go dispose of response 


v04-001 = RSP_DRAIN_ERR 


: 
00 «£0 
06 OF A2 
0171 3=30 
FC87,) «31s: O63F 
st 
50 § 


.SBTTL = RSP_DRAIN_ERR 


doo 


+ 

RSP_DRAIN_ERR is called to dispose of a response once appropriate 
virtual circuit Ereegc areas notification action has been taken. 
f the response bit is 0, then this packet is either a sent command 
ntended to be returned to the free queve or a response gccupying a 
free queue entry. The buffer is returned to the appropriate free queue. 
If the response bit is set, then this is a sent command with requested 
response regardiess of success or failure. In this case, the buffer 
is returned to pool unless it is a SNDDG in which case it is processed 
as if no error occurred. Thus SNDDG's can be returned to the SYSAP if 
requested by the SYSAP. 


Inputs: 
R2 “Response addr 
R4 -PDT addr 

Outputs: 
RO-R2 -Destroyed 
Other registers -Preserved 
-ENABL LSB 

RSP_DRAIN_ERR: 


BBS #PPDSV_RSP,- 
PPD$B_FLAGS(R2) ,20$ 
BSBW = INTSINS_FREEQ 


BRW REM_NEXT_RSP 


If response bit set, 

go return to pool . 
Put response back on appropriate 
free queue 
Go for next response 


SSSSSSSSSSSSSSSSSSSSSSSOCO SOOO EE. 
DADRA AAA AAA AA AAA AA AAA AAA AAA AO Oo 


& WWAWAIAWI WANN WNINNNNNINNIWIAAIWNNNINA AANA 
MINIM FFA ON NN —~ 


BRR EELS EF EWI WIWIWIWIWIINIIONIPONONONNIIN 2 3 2 
OWONAN EWN CO DONAUEWN OC ODNOUE WN OODNOUSWN OOO 


20$: CMPB PPD$B_OPC(R2),- : Is this a datagram? 
#PPDSC_SNDD : 
BEQL SP_IGNORE_ERR : Branch if so to ignore error 
BSBW INTSDEAL_PRT ; Deallocate msg/dg to pool 
CLRL : Show pkt gone (debug aid) 
BRW REM_NEXT_RSP : Go for next response 
-DSABL LSB 


18-SEP-1986 01:15:37 EDRIVER.SREDPAINTR.RaR:2 "98" (3a) 
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PAINTR 16-SEP-1984 01:11: AX/VMS Macro V04-00 
vou~001 = RSP_IGNORE_ERR 18-$£b-198¢ or 15i8? DRIVER. SRCJPAINTR.MAR; 2 
6 -SBTTL - RSP_IGNORE ERR 
-SBTTL = RSP_DISCARB_ERR 
4 3+ 
6 5 ; RSP_IGNORE_ERR is branched to by the error action dispatcher. In this 
6 § ; case, the error is ok and we want to clear the stack and go to the 
o2 : opcode dispatch to process the response as if there were no error. 
5 3 ; RSP_DISCARD_ERR is used for error responses that sohould be 
5 re : ignored and returned to pool without any processing. 
s : Inputs: 
5 4; R2 “Response addr 
$2 $2 : RG -PDT addr 
$3 : : (SP) “Return to fork dispatcher 
5 ; Outputs: 
68 % ; . 
bee fi: none 
65 ie : 
065 7 
0650 74 -ENABL LSB 
228 75 
o28 6 RSP_IGNORE_ERR: 
FC7D =—s 31 o2 ee BRW OPCODE _DISP ; Go process response normally 
065 + RSP_DISCARD_ERR: 
0247 3 065 8 BSBW INTSDEAL_PKT ; Deallocate msg or datagram 
FC70 1 0656 8 BRW REM_NEXT_RSP : Go for next response 
0659 2284 
0659 2285 -DSABL LSB 


OOAC 


0096 


0080 


006A 


31 


31 


31 


31 


OPTIONAL DEBUG BUGCHECKS 


here does a bu ugene 
ag in ERRSDEBU NECK for this type of error 


nO 


DIVIVIVMY TH HMO OOOOOOOOOOVOVOOOVOOOOOOOO 


ERRSDEBUGCHE CK 


ALL registers 


RSP_CRASH_NPUPD: 
SDEBUGCHECK #ERRSV_DEB_NPUPD 
BRW 108 


RSP_CRASH_PSV: 
SDEBUGCHECK #ERRSV_DEB_PSV 
BRW 108 


RSP_CRASH_VCUPD: 
SDEBUGCHECK #ERRSV_DEB_VCUPD 
BRW 108 


RSP_CRASH_INVBN: 
SDEBUGCHECK #ERRSV_DEB_INVBN 
BRW 108 


Soon 


RSP_CRASH_BLV: 
SDEBUGCHECK #ERRSV_DEB_BLV 
BRW 108 


RSP_CRASH_ACCV: 
SDEBUGCHECK #ERRSV_DEB_ACCV 
BRB «10S 


RSP_CRASH_INVOP: 
SDEBUGCHECK #ERRSV_DEB_INVDP 


APIO ODNA NE WWIN 9 OD NAME WIN 9 OD NA NE WIN OOD NO UNE WAN 0 OD NOUS WO 


BEF FAWN NIIWIWIWIGORINININININININIDS 2 2 OS | MQOOOOOOOCOCOCOCOWOoONOoovOowvonO 


AOOOD, ININE oe —eemmM 


SOOT VTVMOAOQAOoO 
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OPTIONAL DEBUG BUGCHECKS 


"Teese routines are dispatched to upen receipt of a response 
with error status that — normal 


t 
the state of the 


ne peas in crashing the 
or not etpeners upon 


-PB address (0 if none) 
-Longword of flags 


enable/disable Pa types 
of SDEBUGCHECK. 


-Preserved 


No = + SNDMSG + unrecognized 
PPD type 


Pkt size violation error 


VC closed + SNDMSG + unrecognized 
PPD type 


Invalid buffer name 


Buffer length violation 


Access violation during 
block xfer 


Invalid destination port 


N13 


PAINTR 16-SEP-1984 01:11: AX/VMS Macro v04-00 Pa 6 
vou~001 = OPTIONAL DEBUG BUGCHECKS 18-$Ep-1 984 Bhi 15i8? DRIVER. SRCJPAINTR.MAR; = (36) | 
2a si ef re BRB 108 | 
FY 46 RSP_CRASH_URC: 3 Unrecognized command | 
F1 034 SDEBUGCHECK #ERRSV_DEB_URC | 
16 11 $ BRB 168 Sia | 
g 1 RSP_CRASH_ABO: ; Aborted command 
7 j SDEBUGCHECK #ERRSV_DEB_ABO | 
00 «(11 a, 33 BRB 108 
FFO! 8631 «0718 § 10$ BRW RSP_CRASH_PORT ; Come here if bugcheck not enabled 
ne : 3 to go crash port and recover. 
71E 35 RSP_OSEQ_ERR: ; Response with seq # mismatch -- 
71E 60 ; either a legitimate duplicate 
71E 61 ; or a seq # error 
at $6 soc euscue cs #ERRSV_DEB_OSEQ 
13.=CO«W1 4 27 BRB 0$ 
9 RSP_VCDCL_ERR: ; Seq msg rec'd on closed VCD 
a i SDEBUGCHECK #ERRSV_DEB_VCDCL 
FEES = 31 are : 208: BRW RSP_CRASH_VC ; Action is to force ve closure 
0749 71 -DSABL LSB 


3; Action is force ve closure 
| 
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PAINTR 16-SEP-1984 01:11: AX/VMS Macro V04-00 Page 57 
v04-001 - INTSFATALQ_IDFQ, ERROR INSERTING ON DF 18-8 eats yi gh 33 YORIVER. SREIPAINTR MAR: 2 ° (35) 
74 -SBTTL = INTSFATALQ_IDFQ, ERROR INSERTING ON DFQ 
74 -SBTTL = INTSFATALQ_IMFQ, ERROR INSERTING ON MFQ 
-SBTTL = INTSFATALQ_CQL, ERROR INSERTING ON COMQL 
-SBTTL = INTSFATALQ_CQH, ERROR INSERTING ON COMQH 
-SBTTL = INTSFATALQ-RSPQ, ERROR REMOVING FROM RSPQ 
-SBTTL = INTSFATALQ_RDFQ, ERROR REMOVING FROM DFQ 
-SBTTL = INTSFATALQ_RMFQ, ERROR REMOVING FROM MFQ 
routine are BSBW'ed to when the interlocked gene instruction 
to obtain the interlock after EXESGL_LOCKRTRY. On insert 


instructions recovery at on is to dispose of the buffer in hand, 
call ERRSCRASH_PORT to initialte crash of the port, clear Z bit 

to inhibit port notification and return to caller. On remove 
instructions, recovery consists of calling ERRSCRASH_PORT to initiate 
crashing of the pert: setting the V bit to show nothing removed, 


+ 
“so 
oz 
—-@® 
wn 
“ve 


73 
74 
74 75 
74 4 
74 7 
74 8 
74 7 
74 0 
stg $380 
74 : : 
74 4; 
74 23 
74 § 3 
$5e9 5388 | 
Boe 8 t and return to caller. 
th} 4! : Inputs: 
074 38 : R2 “Addr of packet to insert (IDFQ, 
074 94 ; IMFQ, cat. CQH) 
are 2 : R4 -PDT addr 
07 $7 : Outputs: 
O74 99 : RO -Destroyed 
ore 83 : Other registers -Preserved 
074 08 : 2 bit -Clear 
074 04; V bit “Set 
Br Subs 
th} be -ENABL LSB 
074 09 INTSFATALQ_IDFQ: 
50 06 9A 074 11 MOVZBL #PAERSK_ES_DQIN, RO ; Get code showing which queue failed. 
OD 11 bee \¢ BRB 208 3; Branch to common code. 
O74 1 INTSFATALQ_IMFQ: 
50 05 9A ar4 1§ MOVZBL #PAERSK_ES_MQIN, RO ; Get code showing which queue failed. 
08 11 : BRB 20% 3; Branch to common code. 
1 


INTSFATALQ_CQL: 


SN NNN 


DPS 


PRR PRR RERR RRR PEEP PPE EEE EEE EEE EWAN AA AAA AAAI 


DWONOULS WOO 


PHD DW OOOO OA WWIII MMM OODOOOOOOODOOOOODOODOOOVOOOODOOOSOOODOOOOOOO 


50 MOVZBL #PAERSK_ES_LCIN, RO ; Get code showing which queue failed. 
BRB 208 ; Branch to common code. 
INTSFATALQ_CQH: | 
50 03 9A MOVZBL #PAERSK_ES_HCIN, RO : Get code showing which queue failed. | 
| 


w oo 
o ws 

— oO 

—> 
COOoOoooooooooo: 


208: © SDEBUGCHECK #ERRSV_DEB_ILKO 
PUSHL R 


Save which queue failed code. 


Optionally, bugcheck on this error 
q 


EP=1984 01:1 AX/VMS Macro V04-00 P | 
= INTSFATALQ oe 97) | 


RMFQ, ERROR REMOVING FROM M 18-SEP-19 4 b4:15:37 LORIVER. SRCIPAINTR. MAR; 2 


F8 p" 38 0 BSBW ERRSDISP_ENTRY ; Dispose of buffer. 
BED POPL 8 : Restore which queue failed code. 
ae BRB 30$ ; Join remove queue processing. 
INTSFATALQ_RSPQ: 
50 0¢ 9a MOVZBL #PAERSK_ES_RQRM, RO ; Get code showing which queue failed. 
0 BRB 30$ $ 


Branch to common code. 
INTSFATALQ_RDFQ: | 


MOVZBL #PAERSK_ES_DQRM, RO 3; Get code showing which queue failed. 
BRB 308 Branch to common code. 


50 


INTSFATALQ_RMFQ: 
ASSUME PAERSK_ES_MQRM EQ 0 
CLRL RO 


50 04 ; Get code showing which queue failed. 
30$: SDEBUGCHECK #ERRS$V_DEB_ILKQ 3 
50 80000000 8F C8 BISL #*x80000000, RO ; Flag this as a crash the port error. 
FB5F* 30 BSBW = ELOGSINTRLOCK : Log the queue interlock error. 
51 43 PUSHL R1 3; Save caller's R1 
F85A" 30 BSBW ERRSCRASH_PORT ; Init port crash 
51 8EDO POPL ; Restore caller's R1 
50 7F BF 90 MOVB #°X7F RO 3; Clear Z bit 
50 96 INCB RO 3; _and set overflow 
05 RSB ; Return to caller 
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Det tonal ty. bugcheck on this error 
-DSABL LSB 
| 
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v04-001 PACKET ALLOCATION/DEALLOCATION/DISPOSAL 18-8 eats gti 33 LORIVER. SRC IPAINTR MAR: 2 ’ (33) 


78 rt «SBTTL PACKET ALLOCATION/DEALLOCATION/DISPOSAL ROUTINES 
7B 464 -SBTTL = INTSINS_FREEQ, DETERMINE IF PKT 
78 465 -SBTTL = IS MSG OR DG AND 
7B 108 -SBTTL = INSERT OF FREE QUEUE 
See 
78 ies INTSINS_FREEQ examines the software structure type to determine if 
78 470 ; this packet is a CU ae or datagram. It inserts messages on 
ie 4 ; the message free queue and datagrams on the datagram free queue. 
re ‘78 Inputs: 
O78 475 R2 “Packet addr 
Bras Sirs 
BPRS $478 | outouts: 
3788 480 RO “Destroyed 
780 2481 R2 “Zero (debug aid) 
0780 24 ¢ Other registers -Preserved 
$780 iB “ 
b7Bp me HH INTSINS_FREEQ: 
OA A2 91 2444 189 CMPB PPD$B_TYPE(R2),- ; Is this a 
38 078 488 #OYNST_CIDG ; datagram? 
3E 13 07B4 2489 BEQL INTSINS_DFREEQ1 : Branch if so 
05 11 0786 2490 BRB INTSINS_MFREEQ1 ; Else do message 


| 
: ze 


E 14 


INTSINS_MFREEQ: : 
SUBL2 PDTSL_MSGHDRSZ(R4),R2 ; Point to PPD start of buffer 
INTSINS_MFREEQ1: 


SINS_MFREEQ : Insert on message free queue 
CLRL R2 ; Show packet gone 


52 0084 C4) C2 


“-SEP=-1984 : AX/VMS Macro V04-00 Page 60 
- INS_MFREEQ INSERT ON MESSAGE FREE QUEU -SEP=-1984 tO: 13:33 YORIVER. SRCIPAINTR MAR: 2 " (39) 
7b 138 -SBTTL = INS_MFREEQ INSERT ON MESSAGE FREE QUEUE 
494 ;+ 
495 ; These routines insert a message buffer on the free queue. The 
iB rh ; different entry points correspond to differing positions of R2 
A 4 ; on entry. Specifically: 
78 138 3 INS_MFREEQ1 R2 => ! me we oo ewe wocee! 
78 0; } ! 
78 1 3 ! PPD/SCS headr ! 
78 § 3 ! ! 
7B 2 $ INS_MFREEQ R2 => ' ececesecoesoeca ' 
78 4; : ! 
78 22 ; ! SYSAP data ! 
7 5 $ 3 ! ! 
07 50 3 ! esceecescocececan ' 
7 508 ; 
7 509 ; 
7 510 ; 
7 211 3 a “Addr of message 
07 216 3 R “Addr of CDT 
fA 513 3 -Addr of PDT 
7 514 ; 
07 515 ; Outputs: 
07 218 ; 
07 17 3 
fi 518 
7 519 
07 520 
of 521 
7 5 § 
07BD 25 
07 524 
07 525 
07D 526 
07D 527 


oon 
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16-SEP-1984 01:11: AX/VMS Macro v04-00 P 1 | 
04-001 = INS_DFREEG INSERT ON DATAGRAM FREE QUE 1OcSEP=19B6 DIL1Sc8? FORIVER.CRESCAYMTRewaR:2 20° (fh, 


-SBTTL = INS_DFREEQ INSERT ON DATAGRAM FREE QUEUE 


oO 


+ 


These routines insert a datagram buffer onto the free queue. The 
different ory points correspond to differing positions of R2 on 
C 


entry. Specifically: 
; INS_DFREEQX = R2 => |nmnnnnnnne ooeee! 

DECnet header : | 
INS_DFREEQ1 R2 => wees evi 

: ; PPD/SCS headr ! | 
INS_DFREEQ AZ =) jeonccunensncnce! 

; | SYSAP data | | 
: siete | 
Inputs: | 
3 R2 “Addr of datagram | 
3 R3 “Addr of CDT 

: R4 “Addr of PDT 
; Outputs: | 
3 R2 -leroed | 


INTSINS_DFREEQX: : 


52 0194 C4 co ADOL PDTSL_DGNETHD(R4) ,R2 ; Step to start of PPD 
0194 C4 AE MNEGW PDTSL_DGNETHD(R4),- ; Put negative offset to default 
08 A2 PPDSW_SIZE(R2) 3: network header in size 
38 4=«iBO MOVW #DYNSC_CIDG,- ; Set structure type in 
OA A2 PPD$B_ TYPE (R2) : PPD header 
0 11 BRB INTSINS_DFREEQ1 


INTSINS_DFREEQ:: 
SUBL2 PODTSL_DGHDRSZ(R4) ,R2 : Point to PPD start of buffer 
INTSINS_DFREEQ1:: 


pie ernese ; Insert on datagram free queue 
CLRL R ; Show packet gone 


52. 0190 C4 C2 


TNH MHMMMMMMMMMMoOOOVTVTVTVVVTVVTVVTVVCVVVCCTVT9cT0"0C0"0"0"0"0"0"0000"0"8 
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Pea bed bed bed bed bed bed ab db bab 4b-db-teb—db-deb- hed beh edb ah edb dh dd edh eddedch duh doh duh doh “dub dah dub doh dub db edh deh bedbedhedbedbbeededledubeded 
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PAINTR 16-SEP-1984 01:11: AX/VMS Macro 
v04=001 = INTSALLOC_MSG, ALLOCATE A MSG BUFFER F 18-S5 p=} 986 REE DRIVER. SRCJPAINTR.MAR; 2 (41) | 
5 0 .SBTTL - INTSALLOC_MSG, ALLOCATE A MSG BUFFER FROM POOL 
‘SBTTL = INTSALLOC-DG, ALLOCATE A DG BUFFER FROM POOL 
-SBTTL = INTSALLOC-DGPPD, ALLOCATE A BUFFER FOR 
*SBTTL = PPD COMMAND 


+ 


These routines allocate a single message or datagram buffer 
from nonpaged pool. 


Message format is simply the PPD/SCS header (PDTSL_MSGHDRSZ(R4)) 
followed by application data (SCSS$GW_MAXMSG bytes.) 


Datagram format is complex. It consists of a network header 
area used by the network SYSAP followed by the PPD/SCS header 
(PDTSL_DGHDRSZ(R4) bytes) followed | the application data. 
The network header size is, by default, the constant stored in 
PDTSL_DGNETHD. SYSAPs sending datagrams in buffers they 
allocate themselves may have a different size header provided 
they always request that the sent dg be returned to the SYSAP or 
pool. The sum of the default net header and the PPD/SCS header is 
stored in PDT$SL_DGOVRHD(R4). Both the network overhead area 

and the PPD header begin with a standard VMS header a 

the structure type of DYNSC_CIDG. The structure size stored in 

the network header area is fhe total size of the buffer. The 
structure size stored in the PPD header is the negative offset from 
the start of the PPD header to the start of the network header. 


PPD datagram format is the same as SCS datagram, except that 
the space following the network header is large enough onl 
for a CKTSET or smaller PPD message. The total size of § 
buffer allocated is: POTSL_DGNETHD(R4) + PPDSW_LENGTH + 

THE network header is unused, but is present in case fy | 


he 
24 

° 
recovery which returns the packet to pool via INTSDEAL 


PPD datagrams can be used only for commands issued with the response 
bit set. They must never by recycled to the free queue. 


Inputs: | 
RG “Addr of PDT 
Outputs: | 
RO “Status: LBC/LBS for fail/success 
R1 agcreute 
R2 “Addr of start of application data 
if status = success (_MSG, _0G, _DGPPD) 
Addr of start of buffer (_pG1) 
other registers -Preserved 
PPD$B_TYPE(R2) -DYNSC_CIMSG/DYNSC_CIDG 
PPD$B_TYPE+1(R2) -0 
PPDSW_SIZE(R2) “Size of msg buffer structure, or, if dg, 
negative offset to start of net header = 
~(PDTSL_DGNETHD(R4)) 
-ENABL LSB 


0090909 Gd Gd 0d 09 6d G0 Od Od 09 Gd Od 09 09 09 Cd C0 OS OD Gd Od OS CD OD 00 OD OD OS CD OD OD OD Cd GD OD OD OD OD 00 00 CD C9 0D CD CD CO CD CD CD CN COON OD OD 
me ee ee ee me ee ee ee ee ee a a ed od od ed 8 = SS 2 SS 
eee eres ea eal AL PAL AL AL AL AL AL AL AL AL AL AL AL AL AL AD AL AL AL AL MAL AL AL ALM AL AL AL AL TAL TAL TAL AL AL AL AL AL AL AL AL AL AL AL Al Ab dh Al dl dl al al 
LRRD DP APPA DP DDD DPD DED DDD DED DED DEDEDE DEDEDE DEDEDE DE TTT 
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v04-001 - PPD 4 01:1 TR.MAR; 2 
13 Hf INTSALLOC_MSG: : 
50 OAC C4 bf 1 6 § MOVAL PDTSL_WAITQFL(R4) ,RO ; Get address of pool wait queue 
0 6 D 1A 2640 CMPL (RO) ,RO : Is the queue enpty? 
¢ 12 1D 2641 BNEQ fy 3 No, wate this CDRP wait too 
Bp 1F otg PUSHL R ; Save R 
51 _00000000'GF ‘ 1 264 MOVZWL G*SCSSGW_MAXMSG,R1 ; Get message size 
51 0B4 C4 C 8 2644 ADOL POTSL MSGHDRSZ(R4),R1 3 rps tuerae PPD/SCS header 
00000000 ' GF ig 4 645 JSB G*EXESALONONPAGED ; Allocate the message 
0D 50 =«€C€ 978 BLBC RO,5 : Branch if didn't get it 
08 A2 1 8 6 264 MOVW R1,PPD$W_SIZE(R2) 3; Set structure size, 
§ 8 A $68 MOVW #OYNSC_CIMSG,- 3 structure type and 
A C 264 PPD$B_TYPE(R2) : zero adjacent byte 
52 00B4 g% CO 08 f 650 ADOL * hae act teed 3; Step to user portion 
3 se? 84 651 5$: POPL a 3; Restore R 
0 578 $36 RSB ; Return 
50 D4 obey 654 7$: CLRL RO ; Set failure status (low bit clear) 
05S 0849 2655 RSB 
084A 2656 
OBA 657 INTSALLOC_PPDDG:: 
084A $28 
29 DD 084A 265 PUSHL Re : Save R 
5 DD Baer 660 PUSHL R 3; Save R 
56 D4 084 661 CLAL R6 3 Add no SCS/PPD offset on exit 
1¢ C1 085 66 ADDL3 #PPDSW_LENGTH+<3*4>,- ; Get size of net header ' 
51 0194 C4 Bae 66 PDT$L_BGNETHD(R4) ,RI 3: + port header + small DG 
1B 11 0856 2664 BRB 20$ ; Go allocate 
0858 2665 
0858 2666 INTSALLOC_DG1:: 
tt 667 
56 OD 085 668 PUSHL R6 i; Save R6 : 
56 D4 O85A 2669 CLRL R6 : Add no SCS/PPD offset on exit 
07 ~«=«11 poet 670 BRB $ 
O85E 2671 
O85E ore INTSALLOC_DG:: 
Baee 67 
56 OD Bak 674 PUSHL R6 : Save R6 
56 0190 C4 dO + ¥4¢ of? MOVL PDTSL_DGHDRSZ(R4) ,R6 ; Add no SCS/PPD offset on exit 
53 gD O83 $99 10$: PUSHL R3 : Save R3 
51 _00000000°GF f 0867 978 MOVZWL G*SCS$GW_MAXDG,R1 ; Get datagram size 
51 0088 (4 C 67 ADDL PDT$L_DGOVRHD(R4) .R1 ; including PPD/SCS header 
es 3; and default net header 
00000000'"GF 16 7 6 § 20$: JSB SLC Eps oncuratee ; Allocate the datagram 
1A 50 €9 79 26 BLBC RO, 308 : Branch if didn't get it 
08 A2 1 60 7C 2684 MOV R1,PPOSW_SIZE(R2) 3; Set structure size, 
B0 | 685 MOVW #OYNSC_CIDG,- 3; structure type and 
OA A 6 6 PPD$B_TYPE (R2) ; zero adjacent byte 
4 26 3; at buffer top 
52 194 C4 CO 4 26 3 ADDL POTSL_DGNETHD(R4) ,R2 3; Step to addr of PPD header 
194 (4 AE 9 26 MNEGW PDTSL_DGNETHD(R4),- ; Put negative offset to start of 
08 A2 D 2690 PPDSW_SIZE(R2) 3: met header in size field 
0 F 2691 MOVW #OYNSC_CIDG,- 3: structure in PPD header 
OA A 1 63¢ PPDSB_TYPE(R2) ; 
52 56 CO 93 269 ADDL R6,R 3; Add any extra offset 


6% 
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3; Restore R3 
3; Restore R6 
3; Return 
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PAINTR 16-SEP-1984 01:11: AX/VMS Macro V04-00 p 5 
04-001 - INTSDEAL_MSG, DEALLOCATE A MESSAGE BUF 18-SEP-1984 REED, LORIVER. SREJPAINTR.MAR:2 _ (23), 
9D 2701 .SBITL - INTSDEAL_MSG, DEALLOCATE A MESSAGE BUFFER | 
9D 7 4 -SBTTL = INTSDEAL_DG DEALLOCATE A DATAGRAM BUFFER 
90 f ; .SBTTL = INTSDEAL-PKT, DEALLOCATE A DG OR | 
9D 2705; 
9D 2706 ; INTSDEAL_MSG -- Given the address of the application data in a message 
90 27 : ; buffer, deallocate the buffer to pool. Bac s the pointer up from the | 
90 2708 ; start of the gt dee data to the start of the PPD Layer and depends 
38 As ; upon PPD$W_SIZE being correctly set to the size of the buffer to deallocate. 
9D 2711 : INTS$DEAL_DG -- Given the address of the application data in a datagram 
9D at 3; buffer, deal locate the buffer to pool. Backs up the pointer from the | 
9D 27135 ; start of the application data to the start of the PPD layer. Examines 
90 2714 ; PPD$W_SIZE. If negative, uses as a negative offset to back the 
890 2715 ; buffer pointer back up the start of the network header. If PPDSW_SIZE | 
+944 £18 : is positive, then there is no net header, so join common deallocation. 
089D At : INTSDEAL_DG1 == Given the start of the PPD Layer, check for network | 
344 ay, : header as described above and deallocate the dg. | 
0890 2721 ; INTSDEAL_PKT -- Given the address of the PPD layer, check if the 
0890 27 ¢ 3; packet is of type C1IDG. If so, go to INTSDEAL BGT. Else join 
+44 4 Z 3 message deallocation code. 
BE S142 | Inoue: 
0890 2727 : R2 “Addr of PPD Layer (_DG1 or _PKT) 
089D 2728 ; Addr of appl ication data (_BG, _MSG) | 
+344 4 4 3 R4 “Addr of PDT (_MSG, _DG) 
0890 , 1 ; Outputs: | 
3390 f : RO,R2 “Destroyed 
0890 738 : Other registers -Preserved 
O89> 5737 
4 738 -ENABL LSB | 
agsp mY INTSDEAL_PKT:: | 
OA 14 91 0890 rs CMPB tn Ph Dae : Is this a datagram? | 
18 12 OBA 744 BNEQ 108 : Branch if not 
0 1 8A 745 BRB INTSDEAL_DG1 ; Else join deallocate of dg : 
2 re ; given PPD header address 1 
a3 248 INTSDEAL_DG:: | 
52 0190 C4 C2 AS 730 SUBL § PDTSL_DGHDRSZ(R4),R2 =; Back up to PPD header | 
AA 73¢ INTSDEAL_DG1: : | 
50 08 A2 FA AA 2754 CVTWL 4  PPDSW_SIZE(R2),RO ; Get net header size indicator 
1 ag 755 BGEQ $ ; Branch if no net header 
50 624 3 736 MOVAB fhe )CROI.RO ; Back up to start of net header 
0 1 4 275 BRB 20 ; Join common deallocate 
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PAINTR 16-SEP-1984 01:11:55 VAX/VMS Macro v04-00 
v04-001 = INTSDEAL_PKT, DEALLOCATE A DG OR MSG 18- -SEP- 71984 LEE, LORIVER. SRCIJPAINTR.MAR;2 
6 27 
735 INTSDEAL_MSG:: 
52 0084 (4 (C2 : 8] SUBL2 PDTSL_MSGHDRSZ(R4),R2 ; Set addr of buffer 
50 52 00 : res 10$: MOVL R2,R0 ; Transfer register 
BB 5 765 208: PUSHR #*M<R1,R3> ; Save registers 
eneeetedl ~ 16 C 76 JSB G*ENESSEANONPAGED ; Deallocate nonpaged pool 
BA ce 76 POPR »R3> ; Restore registers 
5 C 768 RSB ; Return 


} 
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-SEP=-1984 1e1]338 AX/VMS Macro v04-00 
1:15: DRIVER.SRCIJPAINTR.MAR;2 


a -SBTTL = DFQ2POOL REMOVE FROM DATAGRAM FREE QUEUE 
772 3+ 

775; 

774 ; Inputs: 

775 ; 

ore : R3 “Addr of CDT 

a : R4 “Addr of PDT 

719 : Outputs: 

g 1 : R2 “Addr of datagram 

7 s 

4 : INTSDFQ2POOL: : 

re6 ~— _DFREEQ : Remove from datagram 

a BVC INTSDEAL_DG1 ; Good, get rid of it 

788 RSB : Fail, leave with status 


H 16 
yoee001 = MFO2POOL REMOVE FROM MESSAGE FREE QUEU 18-SEP-1984 O1;15:87 LDAIVER.eRETDALWTR HAR: 2 


: g -SBTTL = MF Q2POOL REMOVE FROM MESSAGE FREE QUEUE 
a Bit se 
E 794 ; Inputs: 
E 795 ; 
E £38 : RE “Addr of CDT 
E 797 ; RG “Addr of PDT 
E £38 3 
: 7 > 3; Outputs: 
: if : R2 “Addr of message 
E 08 
8E 4 INTSMFQ2POOL: : 
8E0 4% 
8EO0 28 $ SREM_MFREEQ ; Remove from mesage free queue 
cs i Bare 80 BVC 10$ pene get rid of it 
0 arg 808 : Failed, return status 
O8F 809 
O8F7 2810 -DSABL LSB 
O8F7 2811 
O8F7 aig 
O8F7 281 
O8F7 2814 
O8F7 2815 .END 
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PAINTR 16-SEP 4 01:11: AX/VMS Macro v04-00 Page 69 
Symbol table 18-SEP-1 3b 1:15: 33 DRIVER. SRE CIPAINTR.MAR; 2 : (44) 
$$$ = AC R 01 ERRSV_DEB_VCUPD aeeeeeee =X 01 
SSSCURSIZ = 1¢4 E XESACONORPAGED aeeeeeee =X 1 
SSSLAST_OPC = ° EXESDEANONPAGED eeeetere § 6X 1 
SSSNEWSTZ = 3 EXESGL LOCKRTRY eeneeere = X 01 
ACT_NO_PATH 402 R 1 EXESIOFORK eeneeere =X 1 
ACT-PKTSIZ_ VIO 44A R 1 FATAL _CNFERR = 001EE700 
ACT" VC_CLOSED 48A R 1 FPCSREC_CNFREC aeeeeere =X 1 

S_CIPORT eeeeeeee =X 01 FPCSREC_DGREC aeneneee =X 01 
CALL-ACTION 90 3E¢ R 1 FPCSREC_MSGREC aeeeeeee =X 1 
CHK _ANY_PPD 509 R 1 FPCSREC_RDCNT eeeeneee§ X 01 
CHK—CNF 000016A R 1 FPCS$REC_SNDDG aeeeeeee =X 1 
CHK_MTE 0 8 1¢F g 1 pcenet SNDMSG aeeeeeee =X 1 
CHK-PSR 0000179 R 1 HANDLE_INT 0000896 a 1 
CMP~OPCODE eet R 1 HDWR ERR CODE 0000 3 R 01 

PPD OO00SEO R 1 1DBSC_CSR = 00000000 
CNF SDGREC eeeeeese =X 01 1DB$L-UCBLST = 00000018 
CNFSIDREC eexereee =X 01 INISFORK aeeeeeee = X 01 
CNFSLBREC eeeeeeee =X 01 INISPORT aeeerere§ = X 01 
CNFSLKP_PB_MSG ateeeree §=6X 4 INTSALLOC_0G QOO0085E RG 01 | 
CNF_ERR 00000196 R 1 INTSALLOC_0G1 0000858 RG 01 
CNF OK QO000TA2 R t INTSALLOC_MSG 0000815 RG 01 
DG_SENT_FLGS 80008 R 1 INTSALLOC”PPDDG i ey RG 01 
DISMISS_ERR_INT 0000299 R 01 INTSCLRCACHE Q000013A RG 01 
DISMISS_INT 0000018F R 01 INTSCRASH PORT a He RG 01 
DISPOSE_RSP 00000529 R 01 INTSDEAL_DG QOO008AS RG 01 | 
DO.a OOOOO0ED R 01 INTSDEAL_DG1 QOOO08AA RG 01 
DYANSC_C1DG = 00000038 INTSDEAL_MSG 00000886 RG 01 
DYNSC_CIMSG = 0000003C bbe rs PKT 0000089D RG 01 
ELOGSRARDWARE eeeeeere =X 01 INTSDFQ2POOL 900008C9 RG 01 
ELOGSINTRLOCK aereeeee =X 01 INTSDISP_SENDDG 00000301 RG = 01 
ELOGSPACKET1 teenenee =X 01 INTSFATACQ_CQH eee Ca R 01 
ELOGSPTH_ST_CHG eererere =X 01 INTSFATALQ-CQL 00000753 R 01 
EOASB_NERTOPC = 00000001 INTSFATALQ_IDFQ 00000749 R 01 
EOASB_OPC = 00000000 INTSFATALQ_IMFQ QOO0074E R 01 
EOASW_PPDTYP = 00000002 INTSFATALQ_RDFQ 0000077D R 01 | 
ERRSBOGCHE CK eeneneee = X 01 INTSFATALQ_RMFQ 4s Tk 74 R 01 
ERRSCRASHVC aeeeeree =X 01 INTSFATALQ-RSPQ 00000778 R 01 
ERRSCRASH_PORT eeeeeeee§ =X = 01 INTSINS_CORQH QOOOOO3F RG 01 
ERRSDEBUGCHE CK teeeeree =X 01 INTSINS~COMQL OO0000A7 RG Ot | 
ERRSDISP_ENTRY eeeeeeee § =X ot INTSINS_DFREEQ OOOO7EF RG 01 
ERRSPWF_ RECOV eeeeeere XX 01 INTSINS_DFREEQ1 00007F4 RG = 01 
ERR$V_DEB_ABO eeeeeeee =X 01 INTSINS_DFREEQX ete RG 4 
ERRSV_DEB_ACCV eeeeeeee§ =X 01 INTSINS_FREEQ 0000780 R 1 
ERRSV_DEB_BLV eeeeeere =X 1 INTSINS_MFREEQ 9006 788 RG o 
ERRSV_DEB_ILKQ eenerere § 6X 1 INTSINS_MFREEQ1 7BD R 1 
ERR$V_DEB_INVBN eeeeeeee § Xx 1 INTSMFQ2POOL QOOO8EO RG 01 
ERRSV_DEB_INVDP eereeeee § =X 1 INTSMRESET 0 BR0G 6 RG 1 
ERRSV_DEB_ INVOP teeereee§ xX 01 INTSMSTART 0000111 RG 1 
ERRSV_DEB_MF QE tereeeee§ Xx 01 INTSREADCNT 99 0 3 RG 1 
ERR$V_DEB_NPUPD eeveneee Xx 01 INTSREQDAT 0 RG 1 
ERRSV_DEB_OSEQ eeeeeree = = X 01 INTSSNDDAT 00 $ RG 1 
ERRSV_DEB_PSRX eeeeeree =X 1 INTSSNDDG 0000006 RG 1 
ERRSV_DEB_PSV eeecenee x 1 INTSSNDDG1 $ OOF RG 1 
ERRSV_DEB_UNSTS aeeeeeee =X 1 INTSSNDMSG 8 RG 1 
ERRSV_DEB_URC eeeeeeee§ xX 01 INTSSNDMSGL : D RG 1 
ERRSV_C&B_URP tecereee Xx 01 INTSTRNMSG g RG 1 
ERR$V_DEB_VCDCL teceeree XxX 01 INV_OPCODE 000345 R 1 
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PAINTR ak 3 det BS 9 ie 28 ees: Macro V04-00 Page 70 
Symbol table 10-SEP-1984 01:15: DRIVER. SRCJPAINTR.MAR; 2 (44) 
NDTS = 0000003 PA_PQBBR 904 
NO. CTO 13. R 1 PA-PS #00 
RSP D9 R 1 PA-PSR 91 
NXT_OPCODE F3 R 1 PA-PSR_M_PSC = 1 | 
OPCODE_DISP 0 2D a 1 PA-PS_A_ATE 2 0 
OTHER_CNF_ERR 6 re R 1 PA-PS-M_RQA = 1 
PASINT 160 RG 1 PA-PS-V"MFQE = 1 
PAERSK_ES_CSHP = 30000006 PBSB_PO"STS = 30000089 
PAERSK_ES_DQIN = 00000006 PB$B_-P1-STS = A | 
PAERSK_ES_DQRM = 00000001 PBSB_RSTATION = 0000000C | 
PAERSK_ES_HCIN = 99 PBSC_LENGTH = 00000054 
PAERSK_ES_HWER : 6 6 PBSC_PALENGTH 99 960 
PAERSK_ES_LCIN = 00 PBSL-CLSCKT_DG 4 
PAERSK_ES_LSTO = 999 0 3 PBSM-CUR_PS = 994001 
PAERSK_ES_LST1 = 00000009 PDT$B8_DQTMAP 0000154 
PAERSK_ES_LST¢ = 00000007 PDT$B-HSHUT_DG 0000180 
PAERSK_ES_LST = 00000009 PDT$B_MAX_PORT 990017¢ 
PAERSK_ES_LST4 = 9900000¢ PDT$B_NXT-PORT 6 00176 
PAERSK_ES_MQIN = 0000000 PDT$B_PO_CBSTS 0000180 
PAERSK_ES_MQRM = 00000000 PDT$B_P1_LBSTS 99000181 | 
PAERSK_ES_PCVC = 00000001 PDT$B-PLOGMAP 00000134 
PAERSK—ES_PDWN = 00000003 PDT$B~PORTMAP 90000114 | 
PAERSK_ES_PUP = 00000004 DT$B-PORT_NU 000017D 
PAERSK_ES_RORM = 99000008 PDT$SB_REQIDPS 000001 7F 
PAERSK_ES_SCVC = 0000000 PDT$C_LENGTH = 000000E4 
PAERSK~ES_UPKT = 00000000 PDTSC~PAREGBASE 000000E4 | 
PAERSK_ES_UXIN = 00000005 PDT$C~PAREGEND 00000110 
PAERSK_ET_DALT = 00000003 PDT$C_PQB = 000001E0 | 
PAERSK_ET_LMLT = 00000042 PDTSL_CNF 00000E4 
PA_CNF 00000000 PDT$L~CQ0 00000F 0 
PA_CNF_M_CRD = 00010000 PDT$L~Ca1 O0000F4 
PA_CNF-V~NOCI . 9900000¢ PDT$L_DFQ 00000F C 
PA_CNF_V_PON = 9000001 PDTS$L_DFQHDR 00000208 
PA CNF~V~PUP = 00000016 PDTSL_DGHDRSZ 90000190 | 
“cao 90000908 PDT$L_DGNE THD 0000194 
PA~CQ0_M_Cac = 00000001 PDT$L-DGOVRH = 9000088 
A~CQ1 0000090¢ PDT$L_DQELOGOUT 0002E0 
PA~CQ1_M_CQCc = 90000001 PDTS$L-GPTBASE 9900¢ C 
PA=Cag 00000910 PDT$L_GPT 00 0 
PA-CQ 00000914 DT$L-LBDG 0000184 
PA_DFQ 60000928 PDTSL_MFQ 9009 100 
PA_DFQ_M_DFQC = 00000001 PDTSL_MFQHOR 000 gc 
“MADR 0000014 PDTSL_MQELOGOUT 000 
PA_MDATR 999 18 PDT$L-MSGHDRSZ = 0 4 | 
PA-MFQ C PDTSL-MTC 104 
PA_MFQ_M_MFQC = 00000001 PDTSL_PFAR 00001 8 
“ATC 4d 0 PDTSL_PM 0000 | 
PA_MTEC 09 934 PDT$L_POLLERDUE 0001 ¢ | 
“PDC 0 920 PDT$L~POOLDUE 1 | 
“PEC 6 91C PDTSL_PPR 10€ 
PA~PESR 3¢ PDTS$L—PS EC | 
PA_PFAR 9 PDTS$L-PSR F 
PA-PIC 924 PDT$L-SPTBASE 4 
“PMC 4 PDTSL-SPTLEN 8 | 
PA-PMC_M_MIE = 4 PDT$L-VBDT ¢ 
PA_PMC_M-MIN = 1 PDT$L-VPQB 1 | 
PA-PPR 0940 PDTSL-WAITOFL = 000000AC 
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PDTSM_PUP : 00 PPDSC_PSPO z 01 
PDT$Q~COMQ F PPD$C~PSP1 2 02 
PDT$Q~COMQ 1F PPDS$C-RDCNT = 1A 
PDT$Q~COMOBASE 1E PPD$C~REQDAT 2 08 
PDT$Q~COMQH 0001E PPDSC-REQID : 00 
T$Q~COMOL OOO1E PPD$C~REQMDAT 2 00¢ 
PDT$Q~DFREEQ 1 PPDSC-RETCNF = 
PDT$Q~FORMPB } 174 PPD$C-RETDAT : 00 011 
PDTSQ“MFREEQ 1D8 PPD$C~SCS_DG = 0003 
PDT$Q_RSP 00 9200 PPD$C_SCS_MSG = 00000004 
PDT$Q~TEMP_RSPO 000019 PPD$C~SETCKT = 00000019 | 
PDTSV~PWF_CLNUP = 0 0 Q PPD$C-SNDDAT = 09 9010 | 
PDT$W~BDTC PPD$C~SNDDG 5 01 
PDT$W_~DQELEN 0000 19 PPD$C~SNDLB = 00000000 
PDTSW-LPORT STS 000011 PPD$C~SNDMDAT - 9000012 
PDTSW"MQELEN 00000214 PPD$C~SNDMSG = 900000 
T$W~PBCOUNT 90000112 PPD$C~SNDRST = 00000006 
PDTSW~STDGDYN 9000019 PPD$C~SNDSTRT = 0000000 | 
PDT$W~STDGUSED 0000019A PPD$C~STABO = 00000004 | 
PORT ERR 000000E6 R 01 PPD$C~STINVDP = 00000002 
PPASC_ LENGTH = 00000004 PPD$C~STPSV = 00000000 | 
PPASW-PPDTYP = 00000000 PPD$C~STURC = 00000003 | 
ASU = 00000002 PPD$C-STURP = 00000001 
PPD$B_DEF_ST 0000001C PPD$C_TYPACCV = 00000004 
PPD$B_FLAGS 00000008 PPD$C_TYPBLV = 00000003 
PPDSB-HWVERS 00000034 PPD$C~TYPBMSE = 00000006 
PPD$B-LBDATA 90000012 PPDSC~TYPINVBN = 90000002 | 
PPD$B-LCB_O 0000001 PPD$C~TYPNP = 0000000 | 
PPD$B~LCB-LPORT 00000010 PPDSC~TYPOK = 00000000 | 
PPD$B_LCB_NPORT 0000000F PPDSC~TYPOTHER = 00000007 | 
PD$B~LCB~O 00000011 PPDSC~TYPVCC = 00000001 
PPD$B~LCB~PORT 0000000E PPD$C-VCDC = 00000006 
PD$B~OPC 0000000E PPD$K~LB_ LENGTH 00000046 | 
PPD$B~PORT 0000000¢ PPDSK-LENGT 00000012 
PPD$B~ PROTOCOL 0000001A PPDS$L~BLI 00000004 
PPD$B_RSTATE 90000025 PPD$L~DG_DISC 00000028 | 
PPD$B-RST_PORT 00000024 PPDSL~FLINK 90000000 
PPD$B- STATUS 9000000 PPD$L~IN VCD 00000018 
PPD$B~SWFLAG 900000 PPDS$L ~LBCRC 900004¢ 
PPD$B~SYSTEMID 9000014 PPDSL~PO_ACK 000001 
PPDSB-TYPE 0000000A PPDS$L~PO-NAK 0000014 
PPD$C~CACHECLR = 0 90800 PPDSL ~PO-NRSP 0000018 
PPDSC~ CACHE LEN = 0000 PPDSL~P1~ACK 0000001¢ 
PPDSC_CNFREC = 00 6 PPDSL_P1— 0 0 ) | 
PPD$C~DATREC = 1 PPDS$L~P1-NRSP 4 | 
PPD$C~DGREC = 00000021 PPDSL-REC_BOFF 0000028 | 
PPD$C~IDREC = 8 PPDSL~REC NAME 90000 4 | 
PPD$C~INVTC = 0000 PPDSL-RPORT_FCN 9000 0 
PPD$C~LBREC = 2D PPDSL-RPORT-REV 0 | 
PPD$C~LB_LENGTH 4 PPDSL-RPORT~TYP 00001 | 
PPD$C~LCB_DATA 1 PPD$L~SND_BOFF 90002 
SC"LENGTH 1 PPDS$L_SND_NAME 0 
$C~MCNFREC : PPDSL-s| KooR 1 
PPDSC~MDATREC = PPD$L~XCT_LEN 1 
PPDS$C~MIN_DGSIZ PPDSM~DISPOSE = 1 
PPDSC~MSGR s PPDSM~DQI : 0 
PPD$C~OSEQ = 00000 PPDSM~POSTS : 0006 
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UCBST_OPAO_TEMP 
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PSECT name Allocation — PSECT No. Attributes 

» es 00000000 ( Q-} 00 ( 0.) NOPIC USR CON ABS LCL ore NOEXE NORD ss NOVEC BYTE 
$$$115_DRIVER QOOO0OBF7 ¢ ie: -)») O1¢ 1.) NOPIC USR CON REL LCL NOSHR EXE RD NOVEC LONG 
SABSS 00000944 ( 2372.) 02 ¢( 2.) NOPIC USR CON ABS LCL NOSHR EXE RD URT NOVEC BYTE 


Phase Page faults cPU Time Elapsed Time 
Initialization 3 00:00:00.04 00:00:01.18 
Command processing 137 ae Se BY ss BE 
ass :00:18. :01:01. 
Sy bores coe ot AEE BEEF 
Symbol table output 1 00:00:00.33 00:00:00.98 
Psect synopsis output 0 Bn 89 0.01 00:00:00.02 
Cross-reference output 2 Ss Sh Bo 8098-20 
Assembler run totals 116 00:00:26.4 00:01:35.54 


4 oferkine set Limit was 2550 pag 

154 bytes (301 pages) of eietest | memory were used to buffer the intermediate code. 

Sesh were 100 pages of symbol table space ee to hold 1749 non-local and $3 local symbols. 
815 source Lines were read in Pass 1, produc ig A 7 object records in Pass 2. 

0 pages of virtual memory were used to define 46 macros. 
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! ; Macro Library statistics } 


eececee a tented Me toctmtinithi ncn | 


Macro library name Macros defined 
$255$DUA28: st hy AF Seat oer -MLB;1 17 
$522 $0UAS 1 9 
$522spua5 :ESYSLIBISTARLET. Cale: 32 8 

mo (all libraries) 34 


2053 GETS were required to define 34 macros. 


There were no errors, warnings or information messages. 
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VAX=-11 Macro Run Statistics 18-8fF =|383 8}: 11: 23 DRIVER. Hata INTR.MAR; 2 . (44) 
MACRO/LIS=LIS$:PAINTR/OBJ=OBJ$:PAINTR MSRC$:PAINTR/UPDATE=(ENHS:PAINTR) +EXECML$/LIB+LIB$:PALIB.MLB/LIB | 
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